
F£RDIGE PROGRAMMER TIL: 
. AMSTRAD 

COMMODORE 64/128 - 
VIG20 - - 
SPECTRUM j= " - 
OG MANGE 

ANDRE. Jf. XL- i 






DET TYKKE TILBUD: 



Tegn abonnement pa Danmarks 
storste prc^ram-bibliotek . . . 




/ 



'TAST" er Danmarks st0rste taste-ind blad. 
Et sandt bibliotek af spxndende kvalitetsprogrammer, 
der nu udkommer fast hver tredie maned. 

Tegn abonnement NU! Ikke bare er 
det den billigste losmng, men du fir ogsa 
bladet bragt til daren - gerne 34 dage for 

det udkommer. 

Et helt ar koster bare 122 kroner. Eller omkring 

en krone pr. program ... 

SEND KUPONEN I DAG! 



Ja tak, lad mig tcgne abonnement 
pa "TAST" i et ar (4 numre). 

Jegbanbdntkr. 122,- pa pro 9 40 60 77 □ 
Vedbgt en vhixk pi kr. 122,- □ 

Navn 



Adrcs.sc 



Computer 

Sendes lil: TAST Abonntwm 
Si. Kon^nsjyJe 72 
1264 Kobenh.ivn K. 



w. - 




KareteMt ^^^fc 

Nu or det endnu tid for at finde tastaturet (rem og fa trykket lidt pa de rigti- 

ge knapper. TAST Danmarks storste taste-lnd blad. er hos dig igen. 

Mangier du sma (men ofle seriose) rutiner, du kan ia?gge ind i dine egne pro* 

grammer, er vores U Petrte Programme sagen. LaPP-sektlonen, som vi ogsa 

kalder den, finder du forrest i bladet, og her har vor* eksperter valgt de al- 

lerbedste smaprogrammer ud til dig og din computer 

Videre i bladet finder du de tunge listninger. TAST er blevet sa kendt for, Kva- 

Irtetsprogrammer, der nok er vserd at ha" i sin progranvsamling. Jo, ogsa det- 

te er det bedste af det bedste, 

TAST er bladet for alle t der kan W selv al lave programmer Og handen pa hjer* 
let: Er der noget bed re i denne kotde tid end at pulte sig op ad en varm mo- 
nitor? 

Rasmus Klrkeg&rxf Kristiansen 
Chelwdaktor 



i 



4 Lav selv spil 

- uden selv at lare programmering 



12 Der er et yndigt . . . 

Commodore 64/128 



6 Tastlyd 

Commodore 64/128 



13 Ligningsloser 

Commodore 64/128, C16/plus4, VIC20 



6 Tempotester 

Commodore 64/128 



6 Soj led iag rammer 

Commodore 64/128, VIC-20. m.fl. 



7 Cursorset 

Commodore 64/128 



7 Dansk karaktersaet 

Commodore 64/128 



8 Programmerlngstips 

Commodore 128 



8 10-fingerlaer 

Commodore 64/128 m.fl. 



9 Smart RSX 

Amstrad 



10 Halen pa a?slet 

Commodore 64/128 



10 Datamaker Hex 

Commodore 64/128 



11 Edit-kommandoer 

Commodore 64/128 



11 Scroll-text 

Commodore 64/128 



12 Farve-kommandoer 

Commodore 64/128 



14 Leramin 

Commodore 64/128 



17 Fruit Tree 

Commodore 64/128 



22 Orisplit 

Amstrad 



23 Castle Dungeon 

Commodore 64/128 



26 Sortering 

Piccolo 



28 Orneoje 

Amstrad 



31 Dodens Passage 

Commodore 64/128 



34 King-Kong 

VIC-20 



36 Checkede kassetter 

Spectrum 



39 Flagtraener 

Commodore 64/128 



42 Program-cruncher 

Commodore 64/128 



43 Disk-katalog 

Amstrad 



Antvarshmnde udglm: 

Klaus Nordfekj 

Uffrtdiktir 

Rasmus KirkegArd Kristiansen 

Rectttkm: 

Henrik Bar>g 
Jacob Heiberg 
Michael Christiansen 

fm*$&m 

Hastev Fotosats 



Peter E . Jensen 
Tobtsch Fotografi 
Bargholz Offset Repro 
Partner Repro 
Olesen Offset 
Skovs Bogbinderi 

IWT 

St. Kongensgade 72 
1 264 Kebenhavn K 
Ttf, 01 912833 
Postgiro-nr. 94060 77 
Telefax 01 91 01 21 



TAST - 

Damartts rtarste taste -Ind Had 

Samilige aftrykio listninger er atprovede 
twoftentliggoretse Forlaget betaler skat* 
tefrlt op til 1000 kroner tor godkendte lea- 
serprogrammer Fortagel har ret til at af- 
trykke godkendte programmer i bladet 
og mS otfentliggore dem p& andre lager- 
media. TAST accepterer listninger til alle 
markedets daiamater, ogsA IBM, Amiga 
og l*gn. Listninger skaJ vaere skrevet i del 
I datamaten mest benytlede sprog. Af- 
sender garanterer programmed onglnalrtet. 



Distribution: 

DCA 

Avispostkontoret 

N&r bladet Ikke frem f henvend dig da 
f orst pi d it lokale postkontot 

TAST udgrves af forlaget Audio A/S, der 
ogs3 udgiver "SOFT", svensk "SOFT", 
"COMpuler", svensk "COMputer", "Alt 
om Data", "ny elektronlk", "high 
fidelity", svensk "high fidelity" og 
Hi-Fi Arbogen, 




Det er spil som det- 
te. du selv Kan lave 
uden det mlndste 
kendskab til pro- 
grammering. Og du 
mS geme saHge det 
videre til andre! 



Her f vi I sprtte-de- 
signeren og I fterd 
med at designe et 
flyvende rum oje 
0verst oppe til ven- 
stre ses det fterdlge 
resultal i naturltg 
storrelse. Nederst 
valges farveme. 
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Lav dine egne spil uden of kunne programmmere: 



Nar 




bBver 




Selv uden kendskab til programmering kan 
du lave dine egne Hotte computer-spii Et nyf 
program, "Shoot 'em-up Construction KiFgetr 
det muligt - efter bare fa timers arbejde kan du 
frembringe dine egne rumspii Og de er ikke 
til at skelne fra de professionelle kebe-spil! 



Tekst: Rasmus KirkegSrd 
Foto: Ernst Toblsch m,fl 

Manges drflm er at kunne pro* 
grammere flydende. Men det er 
sv<err at laere. og de fleste grverop 
pa halwejen. At mestre en compu- 
ter s3 godt at man kan frembringe 
professionelle programmer er 
nemllg (kke helt IlgetiL Og slet 
ikke hvis de ogsS skal vsere fn for 

Men nu er hja?lpen kommet Et 
nyt engelsk program setter selv 



den mest uerfarne computerejer i 
stand til at opfinde spil Endda spil, 
der fungerer og faktisk Ikke kan 
skelnesfra "den tegte vare\ De lig- 
ner de spil. du normatt mS give 
nasten 200 kroner for i forretnin- 
gerne. Og de er mindst lige s3 sjove 
at spille, for du harjo selv tavet 
dem. 

Hett uden at kunne $& meget som 
bare een eneste linle BASIC, kan 
enhver nu skrive splL Program- 
met der gar det muligt hedder 
"Shoot em up Construction Kit' 




\ 




Computeren stAr tzndt War til at 
du laver et superspll, Normatt skal 
du kunne programmer*, men Ikke 
med 'Shoot em up Construction 
Kit" - her at det faktisk nemmere 
at lave et spll end det er at spille 
detl 



og kan ertwerves i landets datafor- 
retninger for omkring 275 kroner 
( 1 00 kroner mere for en diskette- 
version), I ejeblikket erkun Com- 
modore-ejere de heldtge, men se- 
nere pA 3ret vil Amstrad- og Spec- 
trum -versioner falge. 

Fire gratis rum- 
spii folger med. 

NSr du R0ber 'Shoot *em up Con- 
stnjction Kit* far du fire gratis spil 
med pS bSndet eller diskettes 
Spillene er alle udviklet (A 'Con- 
struction Kif'et s& udover at fun- 
gere som almindeiige spil. du kan 
1& tiden til at gS med. virker de og- 
si som demos, Faktisk er de fire 
spil den bedste ridde at ffl et ind* 
tryk af programmed muligheder- 
ne, 

Spillene er lavet af de samme men- 
nesker som skrev "Parallax' og 
*Wlzbail" for Ocean. Det er ogsA 
dem. der stAr bag "Shoot 'em Up 
Construction Kit" og de kaldersig 
Sensible Software. 
Mest af alt llgner spillene 'Xevl- 
ous" og andre grafisk gode rum- 
spii. Der er ikke noget nyskabende 
over dem. men det plejerder heller 
ikke at rare i genren - her er det 
gode. gedigne skyd-dem-ned spil 
der taller 

Med "Shoot *em-up Construction 
Kit* har du een begransning: Du 
kan kun lave skydespil, Aitsfl ikke 
noget med Pacman eller adventu- 
res, Til gengaeld at der rig mulig- 
hed for at lade fantasien fS frit spll 
Inden for omrSder som rumkrig. 
fremmede planeter og vild jagt p3 
fjendtlige styrfcer. 

Du kan designe bSde 
figurer og baggrunde, 

I 'Shoot em-up Construction Kit" 



er sprite-designeren nem at g& til 
Det er en ska?rm, hvor du selv teg- 
ner alle figureme. een efter een, Du 
kan frit tegge farver ind og det he- 
le er meget nemt Da Anne p3 10 
blev sat hen foran ska?rmen. var 
der ikke granser for. hvor nuttede 
de mangefarvede rumdyr og fan- 
tasi va?sener kunne bllve. 
lalt kan der skabes 1 28 sprites pd 
hver 12x21 punkter Det er mere 
end mange af de professionelle k0- 
bespil bruger sA ingen tvlvl om at 
vi er kommet op I den tunge klas- 
se. 

Ogs5 lydsekbonen er imponeren- 
de. Den minder faktisk om en hel 
lllle mini-mixer, og n3r du har 
skabt netop dine lyde. kan degem- 
mes og kaldes frem pd vilkdrlige 
tidspunkter i spiliet Lydene kan 
va?re alt lige fra melodier til smar- 
te lydeffekter som eksplosioner. 
skud eller alarmsignaler. Du be- 
stemmer {og er du ikke blfreds. 
kan en lyd altid sendres). 
Baggrunde kan designes efter 
samme princip som dine figurer. 
fjender, rumskibe. skud. eksplo- 
sioner og alt det andet du lavede 
med spritedesigneren. Her guelder 
samme princip: Efter fd timer har 
man la?rt det for alt er menu-sty- 
ret med nemme oversigter, Du 
skal ikke programmer bare een 
eneste linle, 



Kflbere af "Shoot *em-up Con- 
struction Kit* mS frit sselge de pro- 
grammer, de udvlkler. Derer ingen 
copyright pA spll. som er lavet ved 
hj^elp af programmer 
Hos udgiveme i England, Palace 
Software og Outlaw Productions, 
kan man da ogsS melde om, at 
nogieaf Konkurrenterne harva?ret 
pd indkob. Af diskretionshensyn 
vil de ikke n&be hvera men i kroge- 
ne hviskes bU, om Mastertronic 
og Firebird, som vil bruge 'Shoot 
'em-up Construction Kit* til at 
masseproducere billigspil I frenv 
tiden. 

Dine egne spil md du selv Stelge 
som du lyster, Har du fAet en god 
og salgbar Ide, star det dig altsd 
frit for at prakke venner og be- 
kendte splllet p3, 
Har du stflrre ambitioner. kan du 
indrykke annoncer t bladene og 
derlgennem sslge dine spil, Ja. 
hvem ved - miske er 'Shoot em- 
up Construction Kit' starten pd dit 
eget softwarefirma, 
Nye ttder er i hvert fald kommet. 
De dage. hvor programmering var 
en mystlsk kunst er fort)i. 
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Her er La Petite Pro- 
gramme eller pa godt 
dansk: La.P.PJ 
Din nye sektion med 
smaprogrammer og 
smarte rutin er, du se/v 
kan Isegge ind i dine 
egne programmer. 

Tastlyd 

Masklntype: C64 
Gevinst: 100 kr. 

Har du altid dramt om at have et tastatur magen til Lambda ens. 
dvs. med lyd hver gang du trykker pa en tast?l I s& fald kan du ind- 
taste dette program, og du far sSledes lyd p3 dine taster. 

J.Madsen 

10 FOR T=491S2 TO 49164 

15 : READ A: POKE T,A: CHK-CHK+A 

20 NEXT T 

25 IF CHKO4014 THEN PR I NT"DATAFEJL ! " 
30 DATA 120,169, 13,141, 20, 3,169, 

192,141, 21, 3 
40 DATA 86, 96,165,197,201, 64,240, 

10, 169, 255, 141 
50 DATA 24,212,169, 0,141, 24,212, 
76, 49,234,255 

Tempotester 

Masklntype: C64 
Gevinst: 1 00 kr. 

Programmet maler. hvorhurtig du er til at skrive alfabetet. Er du 
hurtigere end programmaren. vil du f3 'hlghscore". ellers far du 
en paptud. 

Det lyder lidt underligt. men nar du har tastet det tnd og pravet 
det. si er det faktisk meget simpeltl 



5 PRINT CHR»ll47j 
10 LET H=40 

20 PRINT"PRESS SPACE TO START" 

30 POKE 198,0:UAIT 196,1:P0KE 198,0 

40 Tl »= "000000" 

45 PRINT CHR«(147J"G0!" 

50 FOR N = 65 TO 90 

60 : PRINT CHR*tN> ; 

70 : GET A*: IF A» < >CHR» ( N > THEN 70 
75 : PRINT"lCRSR VENSTRE, RVS 0N>"; 

CHR$ (N> ; " I RVS OFF)"; 
80 NEXT N 
85 PRINT 

90 PR 1 NT"T I ME : " ; T I * : T = V AL t T I • > 

100 PR I NT"FASTEST :"jH 
110 PR I NT"D I FFERENCE t * jT-H 
120 IF T>H THEN PR I NT"TRY AGAIN - AM 
ATEUR" 

130 IF T<H THEN H E T : PR I NT "OKAY . YOY* 

RE GOOD" 
140 GOTO 20 



Sojlediagram 

Masklntype: C64 (C128 og VICZO) 
Gevinst: 100 kr. 

Mangier du en metode til at frernstilfe hajoplasellge sajler i et 
BASIC program, foreksempel hvor der samtldlg skal sti en masse 
tekst pa skaermen? I sA fald vil dette program va?re svaret pd dine 
dramme. 

Programmet laver nemlig en hajopleselig sajle hvor pa ska?rmen 
du ansker det. 

Skat du bruge flere sojler samtidig. kan du blot laegge rutinen i drt 
eget program som en subrutine. hvor du sastter hajde. x og y 
samt farve. far du katder den. Det gar nemlig. at du kan tegne lige 
s3 mange sejler du vill 

Morten Sarensen 

5 PRINT CHR»ll47) 
10 INPUT"X-KOORDINAT:";X 
20 I NPUT"Y -KOORD I NAT : " ; Y 
30 INPUT"HOJDE :";H 
40 1 NPUT"FARVE :";F 
45 PRINT CHR*(147> 

50 DATA 100,111,121,98,248,247,227, 

160 
60 RESTORE 
70 FOR A=l TO 8 
7S : READ H(A> 
80 NEXT A 

90 AD=983+Y»40+X:FV=S525S+Y*40*X 
100 IF H=0 THEN POKE AD, 32 : END 
110 IF AD<1024 THEN END 
120 IF H>8 THEN POKE AD,Hl8) 

:POKE FV, F:H=H-8: AD=AD-40:FV=FV-40 
•GOTO 100 

130 POKE AD,H(H):POKE FV , F : END 
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17 PR 1 NT" ( CRSR 0P7.CRSR H0JRE4, 
SPACE) ( (CRSR HOJRE) |(CRSR HOJRE) | 
(CRSR HGJRE3) |(CRSR HOJRE3) |(CRSR 

HOJRE) |(CRSR HOJRE) |" 

18 PRINT "(CRSR HOJRE4, 
SPACE) S S H'CRSR HOJRE2) HtCRSR 
HOJRE2) S S S" 

19 PRINT -(CRSR HOJ RE6 ) | ( CRSR 
HOJRE) | I CRSR HOJRE) |(CRSR HOJ RES ) 

i ( CRSR H0JRE3 ) |(CRSR HOJRE) | (CRSR 
HOJRE) |" 

20 PRINT "(CRSR H0JRE6) S S S< 
CRSR H0JRE2) S tCRSR H0JRE2) S S S" 



21 PRINT n (CRSR H0JRE7) UCRSR 
HOJ RE ) | ( CRSR HOJRE) | (CRSR HOJ RES ) 
I (CRSR HOJ RES) | (CRSR HOJ RE ) | ( CRSR 

HOJRE) r 

22 PR I NT** ( CRSR H0JRE7) S S H < CRSR HO 
JRE2) S(CRSR H0JRE2) S S S" 

23 PRINT"(CRSR HOJ RE8 ) | ( CRSR H0JRE>| 
(CRSR HOJRE) | (CRSR H0JRE3) |(CRSR 
HOJRES) |(CRSR HOJRE) |(CRSR HOJRE) 

r 

2a PRINT TAB(8)"(CRSR NED, SORT, 

RVS ON, SPACE18, HOME, CRSR NED2J" 
: RETURN 



Smart RSX 

Masklntype: Amstrad CPC464 og 6128 
Gevinst: 500 kr. 

Programmet laver nogle nye og smarte kommandoer til Am- 
strad'en. Det fungerer bade pa disk og oand (naturligvis und- 
tagen SPEEDDtSC). 
Oe nye kommanduer er. 

XRSX. (o/1) extended RSX. Denne kommando laver alle RSX 
kommandoer om. sA de har samme syntax som pa en CPC6 1 28. 
F.eks. ERA. *Gammel.bak" og REN, "ny.nT. "Gammel.fil*. Hvls pa- 

10 ' 
20 
30 
40 



rameteran er 1 vll XRSX rare akov. Og hvts parameieren er 0. vil 
XRSX ikke were aktlv {let ikke?). 

SPEEODISC. (0/1>Speeddisc sattter hasttgheden pa diskdrevet 
op med ca. 25%. Narparameteren er 1 vll turboen fungere. ellers 
ikke. 

DEEK. (adresse) Denne kommando fungerer som en dobDelt 
peek. Det betyder. at der kan peekes et 16 bit tal. F.eks. vil: 
DEEK.&AE7B udskrive HI MEM (pa* en CPC464). 
DOKE. (adresse), (vxrdl) Denne kommando fungerer som en 
dobbelt poke. Skal man f.eks. la?gge vsrdien 65535 ned I adresse 
1 000 og 1 001 . vil: DOKE 1 000.65535 simpelt hen g»re det for 
dig. Ikke noget med at udregne HI- og LOW-byte. 



' Amstrad 464/6128 
Smart Rsx 



(C) 1987 
GROGS utilities 



23, 7E f CD, 94, A5, 2B, 7E ( CD, 94 



SO ' 

60 ch*ck-0:MEMORY B»A3FF : FOR a-fcA400 TO &A5D2 : READ a*: b=VAL ( "fc" *•«») : POKE a,b:chec 
k=check+b:NEXT 

70 IF Check<>48706 THEN PRINT "Data *ej 1 I" ELSE CALL fcA400 

80 DATA 01,2B,A4,2I,09,A4,C3,D1,BC,00,00,00,00,2A,2A, 2A , 20 , 43 , 50 , 43 , 20, 34 , 36 , 34 , 
20, 42, 45, 44,52,45, 20, 45, 4E, 44, 20, 43, 20, 36, 34,20 

90 DATA 2A,2A,2A,39,A4,C3,4E,A4,C3,82,A4,C3,CD, A4 , C3 , E2 , A4 , 33, 30 , 45 , 43 , 44 , 49 , 33 , 
C3,44,45,45,CB,44,4F,4B,C5,58,32,53,D8,O0,FE,01 

100 DATA C2 , A A , A5, DD, 7E , 00, FE , 00, 20, 10,21,61, A4 , DF , 7F , A4 , C9 , 32, 00 , FA, 00, AF , OF , OC 
.01, 03, FE, 01 , C2, AA, A5 ,21 , 76, A4 , DF, 7F, A4 , C9, 23, 00 

110 DATA C8, 00,01 , 01 , OA , 00,03, OD , C6 , 07 , FE , 01 , 28, 18, FE, 02, C2, AA, A5 , DD,66, 03, DD.6E 
,02, 5E, 23,56, DD, 66,01 , DD, 6E, 00, 73, 23, 72, C9, FE, 01 

120 DATA C2, AA, A5.21 , BF, A4.CD, 8A, A5, DD, 66,01 , DD, 6E.00, 
, A5.21 ,C A, A4. C3.8A, A5, 56, 61 , 6C , 75,65,20, 69, 73,20 
130 DATA 26,FF,0A,0D 
.72,C9,FE,00,28,63,FE,01,C2,AA,A3,DD,7E,00,FE,01 

140 DATA 28, 57, FE , OO, C2 , AA, A3, 21,01, AC , 7E , FE , 00 , 21 , 2F , A5 , C A, 8 A , A5, 21 , 74 , A3, 1 1 , 04 
, AC, 01, 03, 00, ED, BO, 21, 14, A5,C3,8A, A5 , 45, 58 , 54 , 43 

150 DATA 4E, 44, 45, 44, 20, 52, 53, 38, 20, 76, 31, 2E, 31, 20, 69, 73, 20, 4F, 46, 46, OD, OA, FF, 45 
, 58, 54, 45, 4E, 44, 43, 44, 20, 52, 53, 58, 20, 76, 31 ,2E, 31 

160 DATA 20,69,73,20,4F,4E,OD,OA,FF,21,01,AC,7E,FE,00,F5,21,2F,A5,CD,8A, A5,F1,C8 
, 21 , 6F , A3, 1 1 , 33, BF, 01 , IB, 00, ED, BO, 3E , C3, 32 , 04, AC 

170 DATA 21, 33, BF, 22, 05, AC , C9 , 7B , FE , OD , 28, 03 , C9 , C9, C9 , 2A , 34 , AE , 23 , E7 , FE , 7C , 28, 04 
, FE , 83 , 20 , FO, 2A, C2, BO, Dl , Dl , C9, 7E, FE , FF , C8 , CD, 5 A 

180 DATA BB, 23, 18, F6, 5F, IF, IF, IF, IF , CD, 9D, A5, 7B, E6, OF , C6 ( 30 , FE , 3A , 38, 02, C6 , 07, C3 
, 5A, BB, 21 , BO, A3, C3.8A, A5, 50, 61 , 72, 61 ,6D, 65, 74, 65 

190 DATA 72,20,63,72,72,6F,72,0D,0A,FF,2A,2A,2A,20,4B,30,42,20,41,4D 
200 DATA 49, 47, 41 , 20, 2A, 2A, 2A 



,FF,FE,02,C2, A A , A5, DD, 56 , 01 , DD, 5E, 00, DD , 66, 03 , DD , 6E ,02, 73, 23 
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Halen pa aeslet 

Masklntype: C64 
Gevinst: 100 kr. 

Her er si et lille spil. Spillet gaY ud pa. at du ska; szette halen pa 
aeslet. -€slet star altid midt pa skasrmen. men du st3r forskellige 
steder hver gang. 

Du kan se pa" skeermen hvor du er. men det ersnyd. Du skal sim- 
pelt hen lytte dig frem til aeslet. Det kan sagtens lade sig gore, for 
der er en lyd i hcjttaleren. som bliver hBjere og hojere, llge indtll 
du rammer asslet. 

Birthe Jensen 



10 POKE 53281, O:P0KE 53260,0 

:PRINT"(CLR)"CHR*< 142)CHR»t8) 

20 L=54272: FOR 1=0 TO 23: POKE L+1,0 
: NEXT : POKE L* I , 5 : POKE L+6,243 

30 1 =RND ( -T I ) : DEF FNT t X ) = I NT < X»RND < 1 
) > 

40 X1=19:Y1-12 

100 PRlNT"iCLR)":POKE 55296 + X 1 + 40* Y 1 , 

liPOKE 1024+X1+40«Y1 , 94 
110 X=FNT( 10) +30»FNT(2> 

: Y = FNT(S)*20»FNTt2) :POKE L*-4, 17 
120 Tl *="000000" 

200 T=PEEKtl97) :X=X+(T=20 AND X>0)-< 

T=31 AND X^39) : Y=Y+(T=14 AND Y>0) 

-lT=16 AND Y<.24) 
210 POKE 1024+X+4U* Y, 90 
220 A=(1+ABS(X-X1))*(1+ABS(Y-Y1)) 

:P0KE L+l , 150-A/2 : I F A>1 THEN 200 
230 POKE L+4,16:P0KE L+1,25 
240 FO^ 1=0 TO 9: POKE L*4,33 

:POKE L+4,32: FOR J= O TO 99 

: NEXT J , I 

250 PR1NT"DU KLAREDE DET PA"lNTlTl/6 

0) " SEKUNDER. " 
260 PRINT"VIL DU SPILLE I GEN? " ; 

:POKE 196,0: POKE 204,0 
270 GET I*: IF 1 *<* > "J " AND !»<>"N"THEN 
270 

280 POKE 204,1: PR I NT It 

: IF 1««"J"THEN 100 
500 PRINT"tH0ME>";PEEKtl97)"(CRSR VE 

NSTRE , SPACE2 ) " : GOTO 500 



Data maker 
hex 

Maskintype: C-64 
Gevinst: 300 kr. 

Dette program er simpelt hen et MUST for alle. der programme- 
rer maskinkode. og geme vll indsende til bl.a. TA5T. Det skyldes, 
at programmet laver dit maskinkodeprogram om til datalinier. 
Oven i kabet nogle ganske igekkede linier. for hver linie har sin 
egen checksum - det sikrer. at du indtasterdet hele rigtigtl Der- 
udover laver programmet datalinleme som hexadecimal, dvs. 
hvert datasa?t fylder to tegn. og det er tegn fra A til P. pa den 
mide skal man ikke knakke alle fingrene for at na" de taster man 
skal bruge til data'ene. 

Anders Munch 

5 I NPUT" t CLR ) DATA FRA ADR. ";A 

:PRINT"<CLR) 10 A=";A 

:PRINT"100 A=";A:PR1NT"RUN10" 

6 POKE 631,19:P0KE 632,13:P0KE 633,13 

:POKE 634,13:P0KE 198,4 : END 

10 A= 49152 

11 PR I NT" ( CLR ) DATA FRA ADR. " j A 

12 INPUT"<CRSR NED, SPACE ) - OG TIL (I 
NCL . ) : " ; AS : L=200 : LS s "200 DATA " 

15 V=PEEK(A) :LS*Lt + CHR*(W 16 + 65 )*CHR 

*((V AND 1S)*65) :C«<2*C OR V)-<2# 

C AND V) 
20 C=lC AND 255)-<C>2SS) :A=A*i 

: IF A<AS THEN 40 
25 PRINT" t CLR) " ;L»: ", " ; M I D» ( STR* ( C ) , 

2) ; ", " ;CHR«(34) ; :POKE 212,. 

:PRlNT"lCRSR VENSTRE, INST)"; 

CHR* (34) 

30 PRINT"(CRSR NED ) OK . SLET NU LINIE 
10-55" ; 

35 POKE 631,19:P0KE 632,13:P0KE 198,2 
: END 

40 ON- <LEN< L« X74 + 3* ( AS-A<2) ) GOTO 15 

: PR1NT"(CLR)";L*;", "j 

MIDS(STR»<C) ,2) 
45 PRINT"A=";A;":AS=";AS; f, iL« B ;L + 5;" 

:C=";C;":G0T0S5" 
50 POKE 631, Id I POKE 632,13 

:POKE 633,13:P0KE 196,3:END 
55 L*=STR«(L)*"DATA " : GOTO 15 
100 A= <*9152 

110 PRINT"(CLR)JEG SKR I VER DATA FRA 

ADR . " ; A : READ L*,C:PRINT A" t CRSR V 

ENSTRE) " j 
120 FOR T=l TO LEN(L*)/2 

: V=IASC(M1D*(L«,2»T-1 ) ) -65)* 16* AS 

CtMID*(L»,2«T) )-65 
130 H=t2*H OR V)-(2«H AND V) 

:H»(H AND 255)-(H>255) 

:POKE A*T- 1 , V : PR I NT" . " ; : NEXT T 

: PR I NT 
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140 IF COH THEN PR I NT" DATAFEJ L 1 LI 
NIE ";PEEK(63> +256* PEEK ( 64 ) : END 

ISO A S A+LEN < L* > / 2 : READ L» 

:PR]NT A" ( CRSR VENSTRE > " ; 

:IF L»O w "THEN READ C:G0T0 120 



Edit- 

kommandoer 

MasWntype: C64 
Cevinst: 100kr. 

Llgesom ovenstAende program, iaver dette nogle nye BASIC- 
kommandoer. Dlsse kommandoer ger det lidt lettere at pro- 
gram mere. 

De nye kommandoer en 

—I Der tasnder cursoren og venrer pa et tastetryk. og slukker cur- 

soren tgen. Det tegn der blev trykket kan lasses med en GET AS. 

Hvor A$ aitsa vil va?re det nedttykkede tegn. 

— r x. Der sastter repeatmode. 

x— 0 betyder Cursortaster repeterer. 

x— 1 betyder INGEN taster repeterer. 

x— 2 betyder ALLE taster repeterer. 

-fx. Fill. Denne kommando skriver x bytes med chr$(32). derer 

mellemrum. Det vil sige, at skriver du — f 40. vil du skrive 40 mel - 

lemrum pa ska?rmen (og det er det samme som at slette 40 

tegn). 

Ugeledes vil -f 240. slette seks ska?rmlinier {fra cursor positio- 
nen). 

J. Cfinstensen 



I REM TRE NYE BAS I CKOMM ANDQER 

3 REM «-l INKEY — H X, REPEAT 

4 REM *-F X, FYLD 

10 DATA 32,115,0,201,0,240,249,201 

II DATA 95,240,4,76,231,167,234,160 

12 DATA 0,32,115,0,201,73,240,11,201 

13 DATA 62,240,25,201,70,240,37,76 

14 DATA 231,167,162,0,134,198,134,204 

15 DATA 232,226,196,208,252,134,196 

16 DATA 134,204,76,228,167,32,155,183 

17 DATA 138,42,42,42,42,42,42,141,138 

18 DATA 2,76,228,167,32,155,163,169 

19 DATA 32,32,210,255,202,224,0,208 

20 DATA 248,76,226,167,120,169,32,141 

21 DATA 6,3,169,203,141,9,3,86,96,120 

22 DATA 169,226,141,8,3,169,167,141 

23 DATA 9,3,66,96 

24 FOR F=52000 TO 52110:READ A 
:POKE F, A :CH a CH*A : NEXT F 

25 IF ChK>14G3S THEN PR I NT"FEJ L I DA 
TA! " :STOP 

26 SYS S2065:REM * START NY BASIC 



Scrolltekst 

Maskintype: C64 
Cevinst: 100 kr. 

Her er et nyt scrotlprogram. Dette program er temmellg avance- 
ret. idetman kanscrolleoptil 1 K(l024tegn)tekst. Denne tekst 
llgges sidst i programmet (der hvor der nu star. 32.20. 1 . 1 9.20). 
Som du ser. skal den lazgges i datalinler, og med Commodores 
egne koder. Hvis du ensker at eendre teksten. skal du huske at 
eendre tallene i linieme 15-24. 1 FOR -NEXT lekkerneskal tallet 4 
rettes til (antallet af f egn)-1 . Dvs. for 1 00 tegn skriver du: 99. 
I linie 24 skal du rette A-A+ 1 00. HUSK endelig ogsa at dimen- 
sionere A til antallet af tegn. Skal du f .eks. have en scrolltekst pa" 
100 tegn. sa skriv (f.eks. linie 14)14 DIM A( 1 00)og du vil nu kun- 
ne bruge din scrolllinie. 

Hansen 



0 REM SCROLL- SKA ERM AF J.HANSEN 

1 REM SCROLL- TEkS TEN SKAL LIGGES 

2 REM FRA 49152 TIL 50176 

5 PRINT*'(CLR,HV1D,RVS ONjSTART = SYS 

529921RVS ON)":POKE 53280,0 
:POKE 53281,0 

6 PRINT"(RVS ON ) DEAKT 1 VERES MED 

I SYS 53084(RVS OFF)" 

10 FOR A=52992 TO 53096 

11 : READ S: POKE A,S:CH=CH*S 

12 NEXT A 

15 FOR N=0 TO 4 

16 : READ AlN) 

17 NEXT N 

20 A=49152 

21 FOR N=0 TO 4 

22 : POKE A + N , A < N > 

23 NEXT N 

24 A=A+5: IF A>50176 THEN A=491S2:END 

25 GOTO 21 

100 DATA 169,192,141,25,207,169,0,141 
105 DATA 24,207,169,21,141,20,3,169 
110 DATA 207,141,21.3,96,162,1,189 
115 DATA 0,192,157,191,7,232,224,41 
120 DATA 208,245.236,24,207.173,24, 
207 

125 DATA 201,0,208,3,238,25,207,173 
130 DATA 25,207,201,196,206,5,162,192 
135 DATA 142,25,207,162,0,173,255.206 
140 DATA 157.191,219,232,224,41,206, 
246 

145 DATA 160,0,162,0,232,224,0,206 
150 DATA 251,200,192,26,206,244,238, 
255 

155 DATA 206,76,49,234,120,169,49,141 
160 DATA 20,3,169,234,141,21,3,88,96 
170 REM • TEKST 
175 DATA 32, 20, 1, 19,20 
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Farve- 
kommandoer 

Maskintype: C64 
Gevlnst: 100 kr. 

Dette korte maskinkodeprogram giver dig tre nye farve- 
kommandoer. Det erjo temmelig meget nemmere at skrive: - b 
5. (or at fa borderen gron. end at skrive POKE 53280.5. ikke? 
De kommandoer programmet stiller tilraaighed er: 
-b x. Borderfarven sasttes til x. HUSK kommaet efter x. 
—v x, Videofarven saettes til x. HUSK kommaet efter x. 
- p x, Skriftfarven ( pen) bliver farve x. HUSK kommaet efter x'et. 
Da programmet larger kommandoeme i foria&ngelse af den nor- 
male BASIC, vril det ikke betyde noget. hvis du taster RUNSTOP/ 
RESTORE 

Programmet har dog een begransning. det kan ikke forstfl llnier 
med indledende kolonner (:), derfor skal disse llnier aendresl 

J. Christensen 

1 REM *** TRE BASICKOMMANDOER 

2 REM * STARTES MED: SYS52062 

3 REM • STOPPES MED: SYS52075 

6 REM * «-B X, = BORDER FARVE X 

7 REM » «-V X, = SK£RM FARVE X 

8 REM » «-P X, = SKRIFT FARVE X 

9 DATA 32, 115, 0,201, 0,240,249.201, 95 

10 DATA 240,4,76,231,167,234,160,0 

11 DATA 32,115,0,201,66,240,11,201 

12 DATA 60,240,16,201,86,240,21,76 

13 DATA 231,167,32,155,183,142,32,208 

14 DATA 76,228,167,32,155,183,142,134 

15 DATA 2,76,228,167,32,155,183,142 

16 DATA 33,206,76,228,167,120,169,0 

17 DATA 141,8,3,169,203,141,9,3,88 

18 DATA 96,120,169,228,141,8,3,169 

19 DATA 167,141,9,3,88.96 

20 FOR F=52000 TO 52087: READ A 
rPOKE F , A : CHK=CHK+ A : NEXT F 

21 IF CHKO10527 THEN PR 1 NT" FEJ L" 
:STOP 

22 SYS 52062: REM • START NYE kOMM. 



Dew er sa 
yndigt... 

Maskintype: C64 
Gevlnst 100 kr. 

Her far du simpelt hen et program, somspiiier nationalmelodien. 
Det lyder oven i kabet rigtigt. 

Star du og skal bruge en smart afslutning (eller begyndelse) pa et 
program, sa vil det da va?re tjekket at bruge nationalmelodien. 
ikke? 

Peter Frost 

5 PRINT CHR*( 147) 

10 PRINT" »«## *««»»*#» *#»«#» 

•»»»#•*" 

20 PRINT" » DER ER ET YNDIGT 

LAND 

30 PRINT" »*•*•»»*«»****»*«* 

40 A=54272: FOR B-l TO 83 

:POKE A+24,15:READ C:POKE A*5,15 

:POKE A*6,24O:P0KE A, 24 
50 POKE A+1 ( C:P0KE A+4,33:READ D 

:F0R E=l TO D* 100 : NEXT : POKE A»4,32 
55 IF B=83 THEN END 
60 IF B-6 THEN GOSUB 200 
70 IF B*13 THEN GOSUB 190 
80 IF B = 2S THEN GOSUB 200 
90 IF B=33 THEN GOSUB 170 
100 IF B=40 THEN GOSUB 180 
110 IF B=47 THEN GOSUB 160 
120 IF B=54 THEN GOSUB 190 
130 IF B»62 THEN GOSUB 170 
140 IF B=69 THEN GOSUB 180 
150 IF B=76 THEN GOSUB 180 
160 NEXT B 

170 FOR E=l TO 150:NEXT E : RETURN 
180 FOR E-l TO 200: NEXT E : RETURN 
190 FOR E=l TO 400:NEXT E : RETURN 
200 FOR E=l TO 600:NEXT E : RETURN 
210 DATA 15,2,23,6,23,2,19,4,15,4,25, 

8, 15, 2, 30, 6, 30, 2, 26, 4, 25,4, 25, 4, 

22, 4, 22. 4 

220 DATA 14,6,14,2,15,4,17,4,19,4,21, 
4,22,4,25,4,22,8.21,8,22,8,22,2, 
28,6,28,2 

230 DATA 25,4,22,4,22,6,29,2,29,4,18, 
4 , 24 , 6 , 24 , 2 , 24 , 4 , 24 , 4 , 24 , 8 , 23 , 5 , 
22,2,22,4 

240 DATA 21,4,20,4,19,4,25,4,30,6,30, 
2, 28, 2, 25, 2, 25 ,4, 22. 8. 14, 5, 15, 6, 
22,4,28,6 

250 DATA 28,2,25,4,22,4,22,6,29.2,29, 
4, 16, 4, 24, 6, 24, 2, 24, 4, 24, 4, 24, 8, 
23,5,22,2 

260 DATA 22,4,21,4,20,4,19,4,25,4,30, 
6,30,2,28,2,25,2,25,6,22, 10, 14,6, 
IS, 12 
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Ligningsloser 

Maskintype: C64/C128/PLUS4/V1CZ0 
Gevinst: 100 kr. 

Star du og skal lose en "uloselig" ligning. Si er programmet be- 
slemt noget for dig. Hvorfor?? Fordi du blot indtaster den sva?n? 
ligning i programmet. og efter noget tid vii computeren fortaelle 
dig. hvad losningen er. 



Programmet Denytter sig af sekantmetoden. og det betyder. at 
du skal Indsaette minium- og maksimumsvajrdi for x. Jo stsrre in- 
terval, des laengere tid bruges der. 

Skal du bruge programmet til andre maskiner end Commo- 
dore128. sa skal du sikre dig, at kommandoerne "FAST og 
"SLOW" samt "Do" og "Loop" findes i BASIC'en. Ellers skal du fjer- 
ne disse kommandoer (det betyder kun. at programmet er lang- 
sommere). 

Leif Hansen 



100 
110 
120 
130 
140 
150 
160 
170 

ieo 

190 
195 
200 
210 
220 
230 
2«0 
250 
260 
270 
280 



INPUT"FlX>= " ; FUNK * 

PRINT"<CLR)140 DEF FNA(X>- "iFUNKS 
PRINT-RUN140" 

P0KE206,3:P0KE6«2, 19:P0KE643, 13:P0KE644, 13 i END 

DEF FNA(Xj= 5«X-r*2-3»X-55 

DO 

: INPUT-iGUL, 3 DOWN > NEDRE GR4NSE 
: INPUT "0VRE GRANSE :";B1: IF 

: FAST: REM * 5LAR 40-TEGNS SKtfRM 
: ROD I = t A 1 *FNA t B I >-BI »FNA i A 1 } >/ <F 
CHAR 1, 10,3:PRINTRODI 
: IF FNAIAI > * FNA t ROD I > >0 THEN Al 
: IF FN A ( A 1 > *FNA < ROD I > ^ = 0THEN Bl = 
: IF ABS ( FN A I ROD I ) ) >0. 00005 THEN 



:";AI : IF A 1*0 THEN A i - 1 
Bl =0 THEN B I =10 
FRA 

NAtBI J-FNAIAI ) ) 

ROD I 
RODI 
190 



: RD I = 
: SLOW 
: SCNCLR 
: CHAR 1 
: GETKEY 
LOOP UNT 



NTlR0DI*lE4+.SJ/lE4 

CHAR 1, 10,3, "RODEN ER : " 
10,5, "NYE GRj€NSER (J/N) m 

w$ 

L W»="N" 



: PRINTRDI 



Swap program 

Maskintype: Amstrad CPC464 
Gevinst: 100 kr. 

Har du altid haft problemer. nar du lige skulle udregne noget. 
uden at edeUegge det program der netop nu ra?ser linieme igen- 
nem. Eller har du dnsmt om en computer, hvor du kunne have 
flere programmer i I age ret samtidlg?! 
Kan du svareja pa ovenstaende spargsmal. sa vll dette program 



lige vasre noget for dig. for programmet gar det nemlig muligt at 

have to programmer i computeren - samtidigtl 

Programmeme har intet med hinanden at gisre. og det betyder, 

at du kan have kaldt en variabel A i begge programmer - de to 

variabler vil ikke have noget med hinanden at gare. Det betyder 

igen. at du blot skal programmers som normalt. 

Far du nu begynder at taste dine egne programmer ind. skal du 

blot vide, at en CLEAR vil slette ALLE vanablerl 

For at skifte mellem programmeme skriver du SWAPPRC. og 

straks vil du arbejde med det andet program 



60 GOSUB 140 

70 MODE l: INPUT "Indtast startadd. paa Diogram 2: " , star t : IF startCO THEN start= 
65536+start 

80 IF start<1000 OR start >40000 THEN 70 

90 tabel=B:A63A:DEF FN 1 ( x » =UNT ( x > AND B.FF : DEF FNh I a ) ■ 1 NT I a/ 236 ) AND BcFF 

100 POKE tabel ,FN1 (start) : POKE t abe 1 ♦ 1 , FNh ( s t ar t J : POKE t abe 1 +2 , FN 1 1 s t ar t *303 ) : P 

OKE tabel+3,FNhlstart*303> 

110 FOR a-4 TO 10 STEP 2:P0KE tabel *a , FN 1 I start + 306 ) : POKE t abe 1 + aH , FNh ( ■ t ar t + 3 
06) :next 

120 CALL fcA600:PRINT:PRINT:PRINT"(SSWAPPRG installtret- 
130 PR I NT : NEW 
140 check=0 

150 MEMORY SfASFFtFOR a=frA60O TO LA63B : READ a*: b=VAL ( "fc" + a*) : POKE a, b : check=chec 
k+b ; NEXT 

160 IF checl<<>6033 THEN PRINT "Data f ej 1 ' " : END 
170 RETURN 

180 DATA 3E,C9,32,00,A6,21,01,A6,01,OE,A6,C3,D1, BC.13, A6,C3, 1B,A6,53 
190 DATA 37,41 , 50 f 50, 52, C7, 00, 21 , "?B , AE, 11,36, A6,06, 10, lA f 4E , 77,79, 12 
200 DATA 23, 13, 10, F7, 2A, 7B, AE , 22, 8D, BO, 22, 8F f B0,C9,FF, A5, FF, AS, 00,00 
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Commodore 64 

Leramin 



Er du en svoren tilhawger af laby- 
rlnter? I dette spll er du Leramin, 
labyrintvandreren over dem alle. 
Du skal udforske en stor Jabyrint 
og n3 sa langt som muligt p5 den 
rid. du selv har f astsat . 
Programmet har sine egne in- 
struktioner, men det skal lige til- 
f0jes, at diamanterne giver points, 
teleporteren transporterer dig et 
andet sted hen og va?ggene kan du 
g3 igennem efter at have taget *o*. 
Brug dit joystick i port II og: God 
rejsel 

Asger E Grunnet 




0 REM *•*•«•••*•*•••>**********«***« 

**« 

1 REM * 

* 

2 REM * LERAMIN 

3 REM • 

* 

4 REM «***«••*•****•****«»««•*****«* 

*** 

5 REM 

6 PRINT"< CLR,GUL> ■ i SCS= "OOOOOO ■ 

tHi-aeao 

10 DIM A*<70):P0KE 53280,0 
IPOKE 53281 ,0: T-400tSC=0 
: H I "0Q2S6U " : N*= "mSGER E G" 

1 > a HMManHMMMn 



12 f\s<a> 



13 ft*< 3> = "| 



14 4 > = 



20 flS< 5 > = 



30 i=IS< 6) = 




120 A*< 15) = 



130 ft«< 16 > 



■ ■ 

■ ■■■KB ST 10 
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140 ASC 17) = 



150 A» 18 )» 




320 A*C25) = " 



230 A*t 26 > 



2*10 A*C 27) - 
250 A*C28) = 
260 A*< 29) = " 
270 A*< 30)-" 




a ■ 




2S0 A*X31) = 
■ ■ 

290 A*C 32)-" 

a ■ 

300 A*C 33) = 

310 A*C 34) = "l 

320 A*C 35)«" 

330 A*( 36)-" 

340 A«37)«" 



mum* mm 




350 A*( 38 ) = 



360 A«< 39 ) 



370 LE=14:LA=19:S*="00":LIV=3 
380 PR INT "< HOME , CRSR NED , 



SPACE )/~ \ 
390 PRINT" I 
400 PRINT" \_A)MPU 

ER E GRUNNET 
410 PRINT" SOFTWARE 
420 PRINT" 

WARE 

430 PRINT"CCRSR NED,SPACE12) 

II!" 



LERAMIN 



WRITTEN BY fiSG 



FOR COMPU-SOFT 



440 PRINT"CCRSR NE02, SPACE)* - WAL 

L (CAN'T DES INTGRATE ) 
450 PRINT" ♦ = TELEPORTER 
460 PRINT" • = DIAMOND 
470 PRINT" L ■ NEU TIME 
490 PRINT" |+- - WALLS C DES INTGRATES 
WITH O) 

500 PRINT-tCRSR NED ,SPACE6 )PRESS 
CRVS ON)SPACECRVS OFF, 
SPACE3>F0R START M 

501 PRINT"<CRSR NED , SPACE 10 )F 1 = TIM 
E-ADJUSTING" 

502 PRINT"<CRSR NED , SPACE 14 )TIME -"T 

503 PRINT-CCRSR NED ) SCORE 

t "SC»" HISCOREi "HI»- "N* 

504 FOR 1*1 TO 750 

505 IF PEEKC 197) =4 THEN 770 
510 IF PEEKC 197)=60 THEN 520 
515 NEXT: GOTO 910 

520 PR INT "C CLR> ■ 
530 PRINT" /— \ 

w < rvs off >r 

540 PRINT" | 

CRVS OFF >W 
550 PRINT" Nw^JMPU 

<RVS OFF )F 
560 PRINT" 

<RVS 0FF)r 
570 PRINT" SOFTWARE 

C RVS 0FF)F 
580 PRINT" 

< RVS OFF iW ERAMIN" I TI 
535 X-I9:Y=I4 

590 PR INT"( HOME .-CRSR NEDS > " 

IFOR I«LE TO LE+9SL«< I -LE)-MID« A 
*C I),LA,1Q):N£XT I 

595 A«C 16) = "BBHHM ■ BTID 

: "+mio«c r i*. j, 4 ) m m mmmmm 
mwm m m m 

596 KS=TI*i I-VALC K*) 

597 IF I=>T THEN PRINT"CCLR, 

CRSR NED10,SPACEI0)TIDEN ER UDLOB 
ET ! (":PRINT"<CRSR NE0)"TA8< 14)SC 

598 IF I->T THEN FOR I»l TO 2000 ! NEXT 
:GOTO 1040 

600 FOR 1=0 TO 9 1 PR INT TABC 1 4 ) L*< I ) 
:NEXT I 

601 IF PEEKC 1603)=81 THEN 670 

602 IF PEEKC 1603)-12 AND IT<3 THEN T 
I*= -OOOOOO" 1 IT- IT+1 !SC=SC-50 
IGOSUB 890 

603 IF PEEK< 1603)=67 OR PEEKC 1603)=S 
6 THEN LA»19iLE»14lG0T0 590 

605 POKE 1603,81 U-PEEKC 56320) 
607 IF PEEKC 197)=4 THEN PRINT"CCLR)" 
! GOTO 380 

610 IF J=I23 AND PEEKC 1602 ) C > 1 02 THE 
N LA-LA- IMF LA<2 THEN LA=2 



CRVS ON) 

CRVS ON)F 

CRVS ON)T 

CRVS ON)r 

CRVS ON)T 

CRVS ON)r 

"OOOOOO" 
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620 IF J - 1 19 
N LA=LA+1 

G30 IF J-I26 
N LE=LE-1 

640 IF J-125 



AND PEEKC 1604)0102 THE 
IF LA>44 THEN LA=44 
AND PEEKC 1563 X > 102 THE 
IF LE< 1 THEN LE-1 
AND PEEKC 1643)0102 THE 
N LE=LE+ 1 t IF LE>33 THEN LE-33 
643 IF PEEKC 197>«60 THEN I*«TI* 

iPRINT'CCRSR NE02,SPACE6)PAUSE" 
:SC=SC-UG0T0 870 
630 IF LA-15 ANO LE=14 THEN LA-41 
:LE-1 

651 IF LA = 41 AND LE»2 THEN LA»15 
tLE-lS 

652 IF Lft=10 AND LE=31 THEN 850 

653 IF LA-39 ANO LE-32 THEN 860 
660 GOTO 590 

670 PRINT"CCLR,CRSR NE03 , 

SPACE6)C0NGRATULATI0NS III 

680 PRINT"CCRSR NED2 ,SPACE4 )AT LAST 
YOU FOUND THE EXIT. 

690 PRINT-CCRSR NEO , SPACE 10 )/ |\ 

I I 

I I 
I 



700 
710 
720 
730 
740 



\ 



I 

\ I 

M 
I 



PRINT " 
PRINT ■ 
PRINT - 
PRINT " 

PRINT-CCRSR NE02,SPACE3)PRESS CR 
VS ON)SPACECRVS OFF, 
SPACE >FOR CONTINUE" 
741 IF SC<0 THEN SC-0 

745 K*=TI*:PRINT"C CRSR NED 8 , 
SPACE4 )TIME : 'IKS 

746 PRINT-CCRSR NEO , SPACE4 ) SCORE * ■ ; SC 

748 PRINT-CCRSR NEO , SPACE3 ) PRESS < RV 
S 0N)F2CRVS OFF, SPACE )T0 RESET CO 
MPUTER " 

749 GET W*HF W*- "C F2 > ■ THEN 1100 

750 IF PEEKC 197)060 THEN 749 
760 GOTO 1040 

770 PRINT-C CLR,CRSR NE02 , 

SPACE7) JOYSTICK IN PORT *2 II" 
775 PRINT-CCRSR NE04 , SPACE 13, 
RVS ON>SPACECRVS OFF, 
SPACE) TO CONTINUE" 
780 PRINT-C HOME, CRSR NED4 , SPACE2 )TIME 

:"?T"CCRSR VENSTRE , SPACE ) 1 
790 IF PEEKC56320)=123 THEN T-T-10 
800 IF PEEKC 56320)-l 19 THEN T-T+10 
8 10 IF PEEKC 56320) = 126 THEN T-T-l 
820 IF PEEKC 56320 ) ■ 125 THEN T"T* 1 
830 IF PEEKC 197) »60 THEN PR INT-C CLR) ■ 

i GOTO 380 
832 IF TC 1 THEN T- 1 
834 IF T>999 THEN T*999 
340 GOTO 780 
850 **<32)- 



855 ft*< 36)-" 

:GOTO 590 
860 A*C 34) = - 




865 A«C 37) = 



:GOTO 590 

870 IF PEEKC 56320)0127 THEN PRINT"< 
CRSR OP, SPACE 12) " :TI*= I*l GOTO 590 
880 GOTO 870 

890 A*<LE+S)=MID*C A*CLE*-5),1, 

LA*4>+- "+MID« A*C LE+3) ,LA*6, 
LENC A*C LE+5) )-< LA+6) ) 

895 IF SC<0 THEN SC-0 

900 RETURN 

310 PRINT"C CLR) " 

920 Q*=" 

LERAMIN WAS WRITTEN BY 

ASGER GR ■ 

930 Q*=Q**-UNNET,FOR COMPU SOFTWARE. 



940 PRINT" 


/-\ 


950 PRINT" 


1 


960 PRINT" 




970 PR INT" 


SOFTWARE 


375 PRINT 




980 PRINT" 


PRESENTS: 


985 PRINT 




390 PRINT" 


/ 


995 PRINT" 


/ ERAMIN 


996 PRINT" 




RSR NED) 




997 PRINT" 







1000 PRINT-CCRSR 0P2 , SPACE ) |"MID*< QC , 

1 ,37) "| C CRSR NED)" 
1005 PRINT-CCRSR 0P2,SPACE2) 

1010 Q* = MID*C Q*, 2, LENC Q*) -1 )*MID*< Q*, 

1,1)1F0R 1-1 TO 10:NEXT 
1020 IF PEEKC 197)=60 THEN PRINT-CCLR 

)-!GOTO 520 
1030 GOTO 1000 

1040 IF SOHI THEN H I «SC I GOTO 1060 

1045 SC*-MI0*<STR*<SC),2, 

LENC STRSC SC ) ) - 1 ) : K*« "000000 " 

1046 SC*=MI0*<K*,I,6-LENCSC*))*SC* 
1050 PR I NT " C CLR ) " I GOTO 370 

1060 PRINT-C CLR) - : OPEN 1,0 
1065 HI*=MID*C STR*< HI ) ,2, 

LENC STR«< SC) >-l ) I K*= "000000 ■ 
I0G6 HI*«MID*< KS, 1 ,6-LENC HI*) )*HI* 
1070 PRINT-CCRSR NED7 , SPACE2 )NAVNi 1 ; 
1080 INPUT** I ,N*i IF LENCN*)>10 THEN N 

*=MIO*C N*, 1,10) 
1090 PR INT"< CLR ) " t GOTO 370 
I 100 SYS 64738 
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Commodore 64 



Fruit 




'Fruit Tree" er arcade-action pa et tr«e. Altervlgtigst er det. at du far kan se pa farven af rammen. 

plan.derliggertastopaddet.duer grebet de nedfaldende kartofler Og et lille tip: Trykker du pa fire, 

vant til fra spillehalleme. Kvalitetl og de nedfaldende cola-daser (yep. mens du kflrer, far du mere fart pa 

l spinet er du en lille lastbil med to det er et meget mystisk trae). Hvis din lille lastbil... 

liv. Du skal samle frugt sammen. cola-daseme og kartofleme nar Peter Marino 

som falder ned fra et stort. stort jorden. mister du et liv. hvilket du 



10 
60 



70 
B0 



90 



100 



REM 

POKE 56, 60: CLR: FOR T-0 TO 9 

:HSCT)-"DI5PLAY":HCT)-1B00-T"100 

: NEXT: PS- " " 

IF PEEKC49152)-254 THEN 160 
PRINT"CCLR,CRSR NED2 , 
CRSR H0 JRE2 ) PLEASE HANG ON FOR AP 
ROX. 1.5 MIN"CHRSCB) 
PRINT"CCR5R NED , CRSR H0JRE3)READI 
NG DATA . . ": AD-834 

AN-4:G0SUB 120 : AD-1S4BB : AN-26 
rGOSUB 120: AD-49152: AN-17 
:GOSUB 120:AD-50432 
110 AN-1:GDSUB 120: GOTO 1B0 
120 FOR T-0 TO AN: READ XS.CH 
:FOR X-l TO LENCXS)STEP 2 
: AS-niD$CXS,X, 15 : GOSUB 170: E-U»16 
130 AS-MIDSCXS.X+l.l) : GOSUB 170:E-E+V 

:POKE AD , E: AD-AD* 1 : C-C+E: NEXT X 
140 IF C-CH THEN C-0:NEXT T: RETURN 
150 PRINT-CCRSR NED2.RUS ON)?ERROR I 
N DATA" : PRINT"CCR5R NED, 
BLAA)LIST"PEEKC63)+PEEKC64)*256"C 
CRSR OP3,L.BLAA)":P0KE 198,1 
160 POKE 631 , 13: END 

170 U-ASCCAS)-48+7"'CAS> "9" ) : RETURN 
180 51-54272 :S2-Sl+7: FOR T-Sl TO S1+ 

28: POKE T,0:NEXT 
190 SYS 49625 .-riC-50432: BO-53280 

: IN-532B1 : JS-56320: F-242 : U-5324B 
FOR X-2040 TO 2047: POKE X,0 
NEXT X.-POKE 832,0: POKE 833,0 
NS-"":FOR T-0 TO 7 
POKE U+T»2,0:NEXT T:POKE U+21 , 0 
:POKE U, 229; POKE U+1,229 
:POKE U+2B , 255: POKE U+37,9 
220 JO-0:A-0:FOR Y-3 TO 15 STEP 2 
:POKE U+Y , A : A-A+35 : NEXT Y 
2040,254 

U+29, 1 : DUntlY-PEEKCU+30) 
U+39,0:POKE U*3B,7:G0T0 490 
51+1,0:POKE S1+4,0:POKE IN, 6 
BO, 0: GOSUB 270: POKE U+21,255 



200 



210 



230 



240 



POKE 
POKE 
POKE 
POKE 
POKE 



250 



SYS MC:IF PEEKC532B0)<>242 THEN 
250 

260 POKE U+21,0:GOTO 970 



270 PRINT"CCLR,GR0N,RUS ON, 

SPACE 5 » | | 

CBRUN, SPACE, 
GR0N , SPACE7 , BRUN , SPACE , GR0N, 
SPACE2) " ; 

2B0 PRINT " CBRUN, SPACE, GR0N, 

SPACE6 , BRUN , SPACE , GR0N , SPACE14 , 
BRUN , SPACE , GR0N , SPACE7 , BRUN , SPACE , 
GR0N , SPACE9 , BRUN , SPACE , GR0N , 
SPACES , BRUN , SPACE , GR0N) " ; 

290 PRINT" m CBRUN, 

SPACE , GR0N, SPACE4)! CBRUN, SPACE, 
GR0N, SPACES).. m CRUS OF 

F)"CRUS ON, SPACE1B) " ; 

300 PRINT" MQRS 
R H0JRE2) " ; 

310 PRINT" CBRUN). CRUS 0 

FF)«CRU5 ON, GR0N, SPACES, 
RUS OFF)" CBRUN) "CRUS ON) "CGR0N, 
SPACES, RUS OFF)" CBRUN, 
RUS QN)| C ORANGE)! CCRSR H0JRE, 
GR0N).CORAN6E,RUS 0FF)«CRU5 ON, 
SPACE , RUS OFF)" C6R0N)" " 

320 PRINT"CRUS 0N,SPACE2)| | CRUS 
OFF)"V CBRUN) "CRUS ON, SPACE2, 
RUS OFF, ORANGE). CGR0N)"" CBRUN) "C 
RUS ON, SPACE) "CORANGE, 
RUS OFF). CBRUN, RUS 0N)| CO RANG 
E)|CRUS OFF)| CBRUN) .CORANGE, 
RUS ON, SPACE, RUS OFF)"" 

330 PR I NT "CRUS ON.GR0N, 

SPACE)»,CRUS OFF)" ■ CRUS ON). CRUS 
OFF)" CBRUN) "CRUS ON , SPACE2, 

RUS OFF, ORANGE). CBRUN) "CRUS 0 
N.SPACE6, ORANGE)! CRUS OFF)"" 

340 PRINT"CGR0N) • ■ CBRUN 

) "CRUS 0N,SPACE6,RU5 OFF). "CRUS 0 
N)» C0RAN6E, SPACE)" 

350 PRINT TAB C 20) "CBRUN) "CRUS ON, 
SPACE7)» C ORANGE , SPACE) " 
:PRINT TABC23)"CBRUN,RUS ON, 
SPACES)! CORANGE)! " 

360 PRINT TABC23)"CBRUN) "CRUS 0N)« 
! CORANGE)! ": PRINT TAB C 24) "CBRUN, 
RUS ON, 5PACE4)! CORANGE)!" 
:PRINT TAB C 24) " C BRUN , RUS ON, 
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SPACE4)|C0RANGE)|CRUS OFF), 
370 PRINT TABC24)"CBRUN,RUS ON, 

SPACE) | |CORANGE,SPACE,RUS OFF)| ■ 
:PRINT TABC24)"CBRUN,RUS ON, 
SPACE)! C ORANGE, SPACE, RUS OFF)| " 
3B0 PRINT TABC24)"CBRUN,RUS ON, 

SPACE)! C ORANGE) I |" 
330 PRINT TABC23)"CBRUN, 

RUS ON)| I C ORANGE) I CRUS OFF)" 
:PRINT TABC23) "CBRUN, 
RUS ON)| | C ORANGE)! " 
400 PRINT TABC23VCBRUN, 

RUS ON) | | C ORANGE) | CRUS OFF)| 
:PRINT TABC23)"CBRUN, 
RUS ON)| m C ORANGE , RUS OFF)| ■ 
410 PRINT TABCB3) "(BRUN, RUS ON, 
SPACES )* C ORANGE) |" 
i PRINT TABC20)"CBRUN) .CRUS ON, 
SPACE4)» C ORANGE , SPACE ) " 
420 PRINT TABC1G)"CBRUN) .(RUS ON, 
SPACES)* ! C ORANGE , SPACE 
RUS OFF)." 
430 PRINT"CBRUN,SPACE4).CRUS ON 
SPACE , RUS OFF). ^CRUS ON 

SPACES) «■» mm ! CRUS OFF) M 
C ORANGE ) .( HOME ) " 
440 IF QU-1 THEN FOR T-0 TO 500 
.-T-T+C200 AND PEEKC56320)-111) 
: NEXT : QW-0 ■ RETURN 
450 PRINT TABC31)"CCRSR NE07, 



460 



GUL) <- 
:PRINT 
PRINT 
PRINT 
PRINT 



II 



TABC31) 
TABC31) 
TAB C 34) " | 
TABC34) 



:FOR Y-l 
I 



TO 8 
I": NEXT 




n t 



470 



CCRSR NED10 , 



PR I NT " C HOP1E ) "TAB C 35 ) 
CYAN) SCORE CCRSR NED2 , 
CRSR UENSTRE5,HUID)0" 
480 PRINT TABC 32) "CCRSR NED, 
CYAN) JOHN S CCRSR NED2, 
CRSR UENSTREG ) PETER " : RETURN 
490 POKE 2,0: SYS B34 : PR I NT " ( GR0N , 
CLR)":POKE 6B2,S:P0KE 681,0 
:POKE 683,2: POKE 2,1:0111-0 
500 A$C0)- w CRUS ON)"^. CRUS OFF 

)"CRUS ON)". .CRUS OFF) .CRUS ON) . 
CRUS OFF, SPACE) .CRUS ON) .CRUS OFF 
) "CRUS ON). —CRUS OFF) "CRUS ON)- 



510 ASCI)-" CRUS ON)" "CRUS OFF). 

CRUS ON)" "CRUS 0FF).CRU5 ON) .CRU 
S OFF) .CRUS ON) .CRUS OFF, 
SPACE) .CRUS ON) .CRUS OFF, 
SPACE) .CRUS ON) .CRUS OFF, SPACES, 
RUS ON)" CRUS OFF)"" 

520 AS C 2 ) ■ " CRUS ON)" CRUS OFF)" 

CRUS ON)"CRUS OFF)"| .CRUS ON) .CR 
US OFF, SPACE) .CRUS ON) .CPUS OFF, 



SPACE) .C RUS ON) w£ RUS 0FF,SPACE3, 
RUS ON)" CRUS OFF)"" 
530 AS C 3 ) ■ " CRUS ON)" CRUS OFF)" C 
RUS 0N)"CRU5 OFF)" CRUS ON) "CRUS 
OFF, SPACE, RUS ON). CRUS OFF)™ CRUS 

ON) .CRUS OFF) _C RUS ON, SPACE, 
RUS OFF). CRUS ON)" CRUS OFF)" " 
540 AS C 4 ) ■" "CRUS ON). M CRUS OFF) .C 
RUS ON) am CRUS OFF)" CRUS ON)"^. C 
RUS OFF) .CRUS ON) C RUS OFF)"" 
550 ASC5)-" CRUS ON)" CRUS OFF)" .CR 
US ON, SPACE, RUS OFF).CRUS ON)" CRU 
S OFF)" CRUS ON)" "CRUS OFF). .CRUS 
ON, SPACE, RUS OFF)." 
560 AS C 6 ) ■ " CRUS ON)" CRUS OFF)" .CRU 
S ON) J CRUS OFF , SPACE2 , 
RUS ON)"CRUS OFF)" .CRUS ON) .CRU 
S OFF , SPACES) " 
570 ASC7)-"CRUS ON)" CRUS OFF)" .CRUS 
ON) .CRUS OFF, SPACE, 
RUS ON)|CRUS OFF). CRUS ON)" "CRUS 
□FF) — .CRUS ON, SPACE, RUS OFF).. 
580 POKE Sl+5,0:POKE Sl+6,240 

:POKE Sl+4, 17 
590 POKE S2+5,0:POKE S2+6.9 

:POKE S2+1,19:P0KE S2+4.12B 
600 FOR T-2 TO 44: POKE 6B3,T:NEXT 

:FOR X-0 TO 3 : PRINT 
610 FOR T-l TO LENCASCX)) 

:POKE S1+1.10+ABSC21-T) 
620 PRINT"CCRSR OP) "RIGHTSC ASCX) , T) 
: NEXT T: POKE 6B1 , 1 : POKE 52+4,129 
:POKE 92*4 , 128 : POKE 6B1 , 0 
630 NEXT X:POKE 51+1 ,0s PRINT 

:FOR T-4S TO 88: POKE 6B3,T:NEXT 
640 FOR X-4 TO 7 : ASCX)- M 

"+ASCX): PRINT 
650 FOR T-l TO LENCASCX)) 

: PRINT" CCRSR OP) "RIGHTSC ASCX), T) 
:POKE Sl+1 , 30+ABSC29-T) 
NEXT T : POKE 6B1 , 1 : POKE S2+4.129 
POKE S2+4, 128: POKE BB1,0:NEXT X 
POKE Sl+1,0: 

FOR T-B9 TO 190: POKE 683, T 
NEXT: FOR T-1B3 TO 4 BTEP-1 
POKE 6B3,T:NEXT T:POKE 682,6 
FOR T-4 TO BB : POKE 683, T: NEXT T 
FOR T-50 TO 150: POKE 679, T: NEXT " 
FOR T-151 TO 50 STEP-1:P0KE 679,1 
NEXT T 

POKE 52+4, 129: POKE S2+4.12B 
PRINT"CCRSR NED.R0D, 



6B0 



670 
680 



690 



700 

710 



CRSR H0JRE) 



m .CCRSR H0JRE).. 



720 PRINT "CBLAA) 

CRSR H0JRE). u 
730 PRINT"|. CRUS ON, SPACE, 

RUS OFF)|CRUS ON) .CRUS OFF)|CRUS 
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ON, SPACE , CRSR H0JRE2 , SPACE, 

RUS DFFDIV •" 
740 PRINT" ■■■■■ CRUS 0N) a CRU5 OFF) B C 

CRSR H0JRE , RUS DN)a«CCRSR H0JRE, 

RUS OFF) ■ ■" 
750 PRINT TAB C 1 4 ) " C GUL , CRSR DP3, 

CRSR H0JRE , RUS ON) .CRUS OFF). CRUS 
ON) ■CRUS OFF)" CRUS ON). CRUS OFF) 

■ CRUS ON) .CRUS OFF)" CRUS ON) .CRUS 
OFF), C CRSR H0JRE , RUS ON) "CRUS OF 

F) J CRUS ON)"CRUS OFF). CRUS ON) .C 
RUS OFF). I CRUS ON) 1 CRUS OFF) .CRU 
S ON) 

760 PRINT TABC14)"CCRSR H0JRE, 

RUS ON) •CRUS OFF)" CRUS ON) .CCRSR 
H0JRE)|CCRSR H0JRE) .CCRSR H0JRE) • 
CRUS OFF)" CCRSR H0JRE, 
RUS ON) ..CRUS OFF)|CRUS ON) "CRUS 
OFF)|CRU5 ON) "CRUS OFF)"|CRUS ON) 

■ I"" 

770 PRINT TABC14)"CCRSR H0JRE)"CCRSR 
H0JRE , RUS ON) .CRUS OFF)" "CCRSR H 
0JRE.RUS ON)«CRUS OFF)«""CCRSR H0 

JRE)" CCRSR H0JRE) "CCRSR H0 

JRE)" " 

7B0 PRINT"CBLAA) ..CCRSR H0JRE) .CCRS 
R *H0JRE).CCRSR H0JRE)... . .CCRSR 
H0JRE) - .." 

790 PRINT"!. CRUS ON, SPACE, 
RUS OFF)" CRUS ON, SPACE, 
RUS OFF)|CRUS ON) "CRUS OFF)" CRUS 
ON.SPACE.RUS OFF)||| CCRSR H0JRE)% 
CCRSR H0 JRE, RUS ON)| CRUS OFF) "CR 
US ON) %C RUS OFF, CRSR H0JRE)" " 

B00 PRINT" ■■••■CCRSR H0JRE) 
■CCRSR H0JRE)" CCRSR H0JRE)» " 

810 PRINT TABC10)"CCYAN)» .CCRSR H0J 
RE).. . .CCRSR M0JRE) .CCRSR H0JRE) . 
..CCRSR H0JRE).. . h .C CRSR H0JREB) 
■ ■■.CCRSR H0JRE). " 

B20 PRINT TABC10)"CCRSR H0JRE)|CRUS 
ON) ,CRUS OFF)! CRUS ON) "CRUS OFF)| 
CRUS ON, SPACE)" CCRSR H0JRE)| • ||> 
CRUS OFF)"CRUS ON)"JCRUS OFF).CR 
US ON)| CCRSR H0JRE, 
RUS OFF) % CRUS ON)|CRUS OFF). CRUS 
ON)| "CRUS OFF)| " 

B30 PRINT TABC10)"CRUS ON). CRUS OFF) 
■CRUS ON). CRUS OFF)"|||CRUS ON). C 
CRSR H0JRE)|CRUS OFF) "CRUS ON)||| 
CRUS OFF) "II CRUS ON). I CRUS OFF)«C 
RUS ON)|CRUS OFF)..CRUS ON) "J CRUS 
OFF).CRUS ON)|CRUS OFF) "| " 

840 PR I NT " C ORANGE ) 



in 



:POKE Sl+24,5 
850 PRINT"CRUS ON, SPACE8)PRESS <FIRE 
> TO START . . . CHOflE) " 



:TI$-"000000' 
B60 FOR T-8B TO 4 STEP-2 

:POKE 679, 6+CB8-T/2): POKE B83 T 
• GOSUB 930.-POKE Sl + 1 T/5 - NEXT 
870 IF JO-1 THEN 960 1 ' I/SNEXT 
BB0 POKE 6B2,RNDC1)«15+1 
:FOR T-2 TO 88 STEP a 
QO / DKE 679, 6+C88-T/2) ; POKE 683 T 
890 GOSUB 930: POKE Sl + 1 T/5- NEXT T 
900 IF JO-1 THEN 960 *' J/EHEKT 

910 IF TIS>"00000 7 »THEN POKE 2 0 
:POKE Sl + 1 , 0: OUI-1 : GOSUB 1140 
:GOTO 490 

980 GOTO 860 

930 IF PEEKCJS)<>111 THEN RETURN 
940 JO-1: POKE Sl+24 , 15 : POKE 681,1 

:POKE S2+4, 129: POKE S2+4, IBB 
:POKE 681,0 
950 RETURN 

960 POKE e,0:GOTO £40 
970 POKE S1+4,0:POKE 2,0:SYS 834 
:POKE 6B2,2:P0KE BB1.0 

:SC-PEEKCB32)+PEEKCB33)-B5B 

9B0 POKE S2+6 , 240 s POKE Sl+4,17 
:POKE S2+4.17 

990 PRINT"CCLR,R0D,CRSR NED7) " 
:SS- M ":POKE 2,0 

:POKE 679, 49: POKE 683, 205: POKE 2,1 

1000 POKE 1000.PEEKCB32) 
:POKE 1001 .PEEKCB33) 

1010 PRINT SS"CRUS ON)" . CRUS OFF). . 
CRUS ON, SPACE). "CCRSR H0JRE, 
SPACE2, RUS OFF). CRUS ON)" CRUS OF 
F)|CRUS ON)| . " 

1020 PRINT SS"CRUS ON, SPACE, 
RUS OFF)! CCRSR H0JRE2, 
RUS ON)| | CCRSR H0JRE , SPACES, 
RUS OFF)|CRUS ON)| CRUS OFF)." 

1030 PRINT SS"CRUS ON, SPACE, 

RUS OFF)|CRUS ON). CRUS OFF)! CRUS 
ON)| . CCRSR H0JRE, SPACE, 
RUS OFF) | CRUS ON). CRUS OFF)" CRUS 
ON.SPACE.RUS OFF)|CRUS ON)| .CRUS 
OFF)" " 

1040 PRINT SS*'CRUS ON), "CRUS OFF)| C 
RUS ON)| | CCRSR H0JRE, SPACE, 
RUS OFF)| CCRSR H0JRE2, RUS ON, 
SPACE, RUS OFF )| CRUS ON)| ■ " 

1050 PRINT SS-CCRSR NED , SPACE, 

RUS ON)" . CRUS OFF). CRUS ON)| I C 
CRSR H0JRE, SPACE) . CRUS OFF)|CRUS 
ON) | . •" 

1060 PRINT S$" CRUS ON, SPACE, 
RUS OFF )| CRUS ON, SPACE, 
RUS OFF)! CRUS ON)| | CCRSR H0JRE 
SPACE, RUS OFF)|.,CCRSR H0JRE, 
RUS ON)| | " 

1070 PRINT SS" CRUS ON, SPACE, 
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RUS OFF 3 | CRU5 ON, SPACE, 
RUS OFF)|CRUS ON)| I CCRSR H0JRE, 
SPACE) « CCRSR H0JRE)| "CRUS OFF)"" 
10B0 PRINT SS" CRUS ON). ■ CRUS OFF)" 

■CRUS ON). .CCRSR H0JRE , 

SPACE) ■ CRUS OFF)|CRUS ON)| CRUS 

OFF) "CRUS ON) ■" 
1030 FDR T-49 TO 149:P0KE 679, T 

:POKE 6B3.254-T-2+47 

: POKE S1+1.100-T/2 
1100 POKE S2+1,149-T:P0KE S2+1.149-T 

: NEXT : POKE Se+1,0:POKE 52+4,0 

:POKE Sl+5,0 
1110 POKE S1+6,11:P0KE Sl+1,50 

: POKE Sl+4, 128: POKE 51+4,129 
1120 POKE Sl+4, 12B:PQKE 682,7 

:FOR T-150 TO 110 STEP-1 

:POKE B79,T:P0KE 6B3 , 2S4-T«2+49 
1130 NEXT: FOR T-l TO 1000: NEXT 

:POKE 2,0 
1140 PRINT"CGUL,CLR)"; : POKE IN, 9 

:POKE BO ,8 
1150 PRINT"CCRSR u,1irD "^ - - 

_ CRUS ON) CRUS OFF)mw 

" • Dnve 51+1,0: POKE S2+1.0 
UE0 PRINT"CRUS DN , SPACEB) FRUIT-TREE 
HALL OF FAHE *'; 

:POKE S1+4,17:P0KE Sl+6,240 

1170 PRINT"CRUS OFF.CRSR H0JRE2) 
CRUS 

S OFF) 

11B0 PRINT"CCRSR NED , CRSR H0JRE3, 
L . GR0N)GAI1E BY PETER HARINO , 
GRAPHICS BY" 

1130 PRINT TABC13)*'JDHN HIKKELSENCCR 
SR NED) " 

1200 PRINT TABC11)"CGRAA3)Y0UR SCORE 

: "PEEKC 1000)+PEEKC 1001 )*256 
1210 PRINT"CCRSR NED) "TABC 10) "CHUID) 

1220 FOR Y-0 TO 3:PRINT TABC 10) " I "TA 

BC23)"| " : NEXT Y 
1230 PRINT TABC 10) " ' 

1240 PRINT"CSORT,HOnE,CRSR NEDS) " 

:FOR P-0 TO 3:PRINT TABC 12)HSCP)L 
EFTS CPS , 7-LENCHSCP) ) ) , HCP) 
1250 NEXT: IF SC<-HC9)THEN 1400 
1260 PRINT"CCRSR NED2 , CRSR H0JRE4 , 
GRAA3) PLEASE STATE YOUR NAHE 
: CHUID)"; : POKE 204,0 
1270 GET AS: IF AS-" "THEN 1270 
12B0 POKE S1+1,25:P0KE 51+1,0 
1290 IF A$-CHRSC13)THEN POKE 204,1 

: PRINT" ":GOTO 1360 
1300 IF AS-CHR$C20)AND LENCNS)-0 THE 
N 1270 

1310 IF A$-CHRSC20)THEN PRINT AS; 



:NS-LEFTSCNS, LENCNS)-1) :GOTO 1270 
1320 IF LENCNS)>6 THEN 1270 
1330 IF AS-" "THEN PRINT AS;:N$-NS+AS 

.GOTO 1270 

1340 IF A5CCASX65 OR ASCCAS)>90 THE 
N 1270 

1350 PRINT AS ; : NS-NS+AS j GOTO 1270 

1360 FOR N-0 TO 9 

1370 IF SC>HCN)THEN G-N 

:FOR S-0 TO 9-G : HC 10-5)-HC3-S) 
:HSC10-S)-HSC9-S):NEXT:L-1 

1390 IF L-l THEN HCN)-SC : HSCN)-NS : L-0 
:SC-0:GOTO 1240 

1390 NEXT 

1400 IF QUI-1 THEN FOR T-0 TO 400 

:IF PEEKCJS)-111 THEN T-401 : RETURN 

1410 IF DUJ-1 THEN NEXT: POKE 53281,6 
:GOTO 270 

1420 FOR T-l TO 500: T-T+C7000 AND PE 

EKCJS)-lll):NEXT:GOSUB 200 
:GOTO 490 

1430 DATA 78A97F8D0DDCA973BD1403A903 

9D1503A9B18DlAD058A2006EA602A232a 
EA7, 3331 

1440 DATA 02A206BEA902A20EBEAA02A25B 
BEAB026000A901BD19D0AD7203F01BADA 
902, 3079 

1450 DATA 20C203A900BD7203ADA7021B6D 

AB028DA702BD12D04CAD03ADAA0220C20 

3A9, 2973 
1460 DATA 01BD7203ADA702186DAB02BD12 

D0AD11D0297F8D11D0AD0DDC2901F0034 

C31 , 3022 

1470 DATA EA4CBCFE4BA502F00B6B8D20D0 

BD21D0606BB0, 2402 
14B0 DATA 0000002000002000002B00002C 

00003D00003D00003F000037400037C00 

03D, 760 

1490 DATA C0000DD0000DF0000F7400037C 

0003DD0000DF4000F7D4003DFD000FS70 

003, 2313 
1500 DATA FF005400005500000540000540 

000150000150000114000104000105000 

101, 758 

1510 DATA 000101000100402A0040AAB2A0 

AABAABABBAABABBAB8AEBAB8AEBAB8AA0 

AE8, 34B3 
1520 DATA 2802A000000000000000005000 

00500000 140000 14000005000095400? A 

BA0, 948 

1530 DATA 0AAAAB0AAAA82AAAAA2AAABA2A 
AABA2AAABA2AAAEA2AAAEB2AAAEB0AABA 
802, 3957 

1540 DATA AAA000AAB00000000000000000 

000000000000000000000000000050000 
06A, B14 

1550 DATA 00006A8000GAA0006EAB006AEA 
B06AAEA96AAAA95AEAE91AAAA916AAA50 
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55A, 3514 

1560 DATA 55015554001540000000000000 
0000000000000000000000FF0003FFC00 
FFF, 1315 

1570 DATA F00FFFF03FFFFC3FFFDC3FFF7C 
0FFF700FF5F003FFC000FF00000000000 
000, 3887 

15B0 DATA 000000000000000000000FFF00 

3BEAC02FFF802AAA802AAA802FAAC02EB 
AC0, 269B 

1590 DATA 2EFEC02EFEC02FBAC02AAAC02F 

EA802ABFC03AAA803EAAB02FAA802BEAB 
02A, 4155 

1600 DATA FEB02ABFC03AABC00FFF000000 

000000000000000000000000010000040 

000, 1503 

1610 DATA 140000AA0002AAB00AAAA00AAA 
A00AAAE00AAAE00AAAE00AABE00AAFA00 
2AA, 3304 

1620 DATA B000AA00002B00000000000000 
00000000000000000000006B0000AB000 

2AA , 846 

1630 DATA 0002AA000AAAB00AAAB00AABB0 
0AABB00AAFB00AAFB00ABEB002BE0002B 
A00, 2740 

1640 DATA 00AB0000AB0000000000000000 
000000000000000000000000000000000 
000, 336 

1650 DATA 0040000010000010002554A0A9 
55BBA955ABAEAAABAAAAB8AAAEABABAAA 
B2A, 3336 

1660 DATA AABB2AAAA00ABAA00AAA8002AA 
0000AB000000000000000000000000000 
000, 1730 

1670 DATA 00000000000015000155401556 
505955545555545565949555545555645 
559, 1966 

1680 DATA 54165550055540015500000000 
0000000000000000003F00000F00000F0 
202, 608 

1690 DATA 330A8AB30A8A802AAAA02AAAE0 
2AAAE02AAAE02AAAE00ABBB00AEBB00AE 
A80, 3792 

1700 DATA 03AA0003AA00FCAB00FCA8000C 
20000C20000C000000000000000000000 
000, 1286 

1710 DATA 00000000000000000000000000 

02FC2002FC2AAACC2555CC255SEC25S5F 
F25, 2054 

1720 DATA 55FE2555FF0FFFFF0FFFFF2EEF 
EF0EEFEF0220200220200000000000000 
000, 2914 

1730 DATA 00000000000000000000000000 

003FB0003FB00B33AAA833555B3B5558F 
F55, 1575 
1740 DATA 5BBF555BFF5558FFFFF0FFFFF0 

FBFBBBFBFBB00B08800B08B0002A00FF , 
4329 



1750 DATA FE03D0BC03D0C0FFD00DA9E720 
21C069199D02D0205CC060AD12D045A26 
5A2, 3991 

1760 DATA 2A60BDC002AD12D045A265A22A 

CDC0029009EDC002A000C0FED0F260A90 

B20, 3755 
1770 DATA 21C01869F29DF907E9F1A8B950 

C09D28D0600002050200020801020F020 

0BA, 27B6 
1780 DATA 4AAA203BC060A2FD8EF807AE00 

D0E0FFF003EE00D060A2FE8EFB07AE00O 

0E0, 4500 
1790 DATA 18F003CE00D060AD00DCC977D0 

032063C0C967D0092063C02063C02063C 

0C9, 3715 
1800 DATA 7BD0032073C0C96BD0092073C0 

2073C02073C060EAEAEAEAEAEAEAEAEAE 

AEA, 4B85 

1B10 DATA EAEAEA1B6D40039003EE41038D 
4003A020A20C200CE5AE4003AD410320C 
DBD, 3110 

1B50 DATA EA60EAAD1ED0BDC1022901C901 
D00320ECC060A90A20BCC0A213ADC102C 
903, 3666 

1830 DATA D002A203C905D002A205C909D0 

02A207C911D002A209C921D002A20BC94 
1D0, 3237 

1840 DATA 02A20DC9B1D002A20FA9FE9D00 

D060A201EBE8BD00D0C9E5F005E00FO0F 
360, 4263 

1850 DATA 8A4AA8B9FB07C9F7F004C9FBD0 
EDAD20D0EAEAC9F0D00AA907BD20D050B 
D20, 4775 

1860 DATA D060A902BD20D060AD1ED08DFF 
CFC900F06B2901C901F065ADFFCF2902C 
902, 39B0 

1870 DATA D008EAEAEAA2024CD3C1ADFFCF 

2904C904D005A2044CD3C1ADFFCF290BC 
90B, 4199 

1880 DATA DO05A206HCD3C 1 ADFFCF29 1 0C9 

10D005A20B4CD3C1ADFFCF2920C920D00 

5A2, 3949 
1B90 DATA 0A4CD3C1ADFFCF2940C940D005 

A20C4CD3C1ADFFCF29B0C9B0D005A20E4 

CD3, 4171 

1900 DATA C160CACA200AC060A90F8D18D4 

A9008D05D4A9F0BD06D460EABD04D48E0 

0D4, 3920 
1910 DATA BC01D460EAEAEAEAEAEAEAAD40 

03CD02C7F009BD02C7A9148D03C7EAAD0 

3C7, 4465 
1920 DATA C932F011EE03C7A911AE03C7AC 

03C720EAC14C29C2A900BD04D460 , 3276 
1930 DATA A202BEFACFA200BEC5022000C0 

AEC502E8EBE00ED0F120B3C020DCC0202 

6C1, 4076 
1940 DATA 205DC120FBC1AEFACFCABEFACF 

E000D0D560, 2967 
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Amstrad 




"Fun. fun. fun* synger Beach Boys 
og sandelig om Ikke der er masser 
af Fun 1 Amstrad-programmet 
'Ordspltt*. Tast et vflkarligt ord 
ind og masklnen vil udregne og ud- 
skrive aile kombinationeme. Den 
tager ikke hensyn til. om det er 
ord, der eksisterer i det danske 
sprog. men sa erdet ogsa Dare me- 
re FUN! 

Kenneth Bemholm 



I. 24' INK 2,*' INK 3. 1 'BN-1 'GQ=0' 
IndUtt et ord (mk, 21 t»9n). " 
LEW ORD* Wl THEN £0 E 



AR-0<DIM A*<22> 
' LOCATE 3.6' INPUT 



|H h+M *** ORDv4>Lir VI. 8 *** 
i- PEN 

i" REN <C> KENNETH BERNHOLH 13-12-85 
4»i rem 

38 MODE 1 'BORDER H 1 INK 0.0. INK 
M fLS'PEN I 'LOCATE 1 ■ 1 'PRINT 
"OH> • i OK* 'IF LEW0R0*)>21 OR 

78 CLSt LOCATE 1,1. INPUT "1. FRI / 2. STYRET SORTER ING " iFG i IF FG-1 OR FG-2 THEN 

ri.s ELSE ?* 

80 PEN 3'LOCATE 1,1 'PRINT "Ord ' " i ORD* < LOCATE 1,3'PRINT LEW ORD* >J- T#9tl."<F0R 
*••=! TO LEW0RD*)"A*<R>-f11D*<0RD8iR, I *" NEXT R'FOR IOP 

'» fO STEP -M.OCRTE IQP.20<PEN 1 'PRINT "NEXT IOP 

98 FOP HF-BN rn P-FOP AI'-BN TO R'FOR fiC-BN TO R'FOR AB-BN TO R ' FOR' ZZ-8N TO R'FO 
R YY=RN fO RiFi"»P XX=6N TO R'FOR NU-BN TO R'FOR VV-BN 
TO R'FOR UU=BN rO R'FOR T r»BN TO R'FOR SS-BN TO R'FOR RR-BN TO R'FOR GG-BN TO.R 
I OA FOR PP-BH TO P'FOP On«BN TO R'FOR NN=6N TO R'FOR MM-BN TO R'FOR LL-BN fO R'F 
OR IK--PN TO R'FOR J>6H TO R 

I 1G IF FG"I THEN 120 ELSE PEN 2-LOCATE 6.10<LINE INPUT "T«t ENTER "jG« 
| Vi rtH=ftfi+l ' PEN 1 'LOCATE 1,8' PRINT "Kowbl nation nr. "iflA 

I :*> PFH 2 'LOCATE 2©,20'PRINT A*< I )• BN-2 ■ LOCATE 26.20iPRINT A*<JJ)'NEXT JJ'GG-1'G 
OSHR 2B8 1 LOCATE 2*5,20'PRINT R*(1>'L0CATE 2S.28'PRINT 

• NFX1 KK»GC*2« GOSUB 200 ' LOCATE 24. 28 'PRINT A*(1)'L0CATE 24, 28' PRINT A*<LL 

"NFXT I L ■ GG a 3 ! GOSUB 200 

I4.i LOCATE 23. 2fti PRINT A*' 1 > 1 BNa2 ' LOCATE 2j,20'PRINT R*< MM ) 1 NEXT MM ' GG-4 I GOSUB 2 
80 LOCATE 22.28>PRINT fl«( 1 >'LOCATE 22,20'PRINT RS(HN* 

► iMFXT NN'GG-5' GOSUB 200'LOCATE 21, 28i PRINT A4(1>'L0CRTE 21,28'PRINT R*<00>'NEXT 

00 GG-6 • GOSUB 200 

1*W LOCATE 20,20'PRINT A*( 1 ) i BN-2 ■ LOCATE 20,28-PRINT A*(PP)'NEXT PP I GG-7 ' GOSUB 2 

i LOCATE 19, 28< PRINT R*fr"LOCBTE 19,20'PPINT AX QG 
mNEKI 00'GG«8iG0SUB 20e'L0CATE 18,20'PRINT A*<1)'L0CATE 18,20'PRINT AX RR ) ' NEXT 

Rp.GG*y.G0SIJ6 200 

A*<1)' BN-2. LOCATE 17, 20 > PRINT R*fSS)»NEXT 88 iGG-10' GOSUB 
A*< 1 )' LOCATE 16-20'PRINT B*<T 

2R0-LOCATE 13.20IPRINT ft>( 1 >' LOCATE 15,20iPRINT Ai(UU)'ME 



Ira* [ Of ATF [7.28 ■PRINT 
-on LOCATE 16,20'PRINT 
T > ' NEXT TT' GO- 11 'GOSUB 
X( UUGG-12- GOSUB 20ft 
t i*0 I QCriTE 14. 28 -PRINT 
PW' LOCATE 13, 28 'PRINT 
MvHKXl W 'GO- 14 'GOSUB 
XT MX '00*19 ■ GOSUB 206 
188 LOCATE M.2M' PRINT 
^id'LOCATF ie.»n 'PRINT 
jM.HEXr ??<GG*l?'GOSUB 



A»fl)' BN-2' LOCATE 14. 28 'PRINT A»<VV)'NEXT WtGG-13 'GOSUB 
A»( 1 )' LOCATE 13.28'PRINT A*<W 

200'LOCATE 12,28'PRINT A»C1)-L0CATE 12,28'PRINT ft»<XX>iHE 

AS( l)i BN-2 'LOCATE 11.20'PRIHT R*<YY)'NEXT YYiCG"16 'GOSUB 
A««: 1 )■ LOCATE 10,28'PRINT ft»<Z 

288 'LOCATE 9,20-PRINT R*( 1 i'LOCATE 9.20'PRINT A*C AB >)NEX1 



Afi>GC-l8'G0SUB 288 

1*0 LOCATE A.28'PRINT A*( 1 J ■ BN=2 1 LOCATE Bi 28 'PRINT AK AC ) I NEXT AC I GG-I9 • GOSUB 
f MfAfE 7,20'PPINT A*<1>" LOCATE 7,20'PRINT B4*AD)'N 

FX1 H0'GG»28'Cn*aje ^00 ' LOCATE 6.2fliPRIHT A»< 1 ) 1 LOCATE 6,20'PRINT A«< AE ) ' NEXT AH 

i-,»>I GOSUB 288 •GOTO 210 

WO IF GG-R-1 THEN 210 ELSE RETURN 

?\0 AA'-HA-l'CLS'PFN 1 1 LOCATE 1,1 'PRINT "Af ordet ) " 'PEN 2'LOCATE 12. 1 'PRINT OPt- 
* t in ATF 1 1 *P , I PEN I -PRINT " <" 'LOCATE 1,3'PRINT " 

hl.-w d^r" 'LOCATE l.S'PFN 2 'PRINT AA 'LOCATE 1,7'PEN 1 'PRINT "koi«bi Ht lon*r. " I LOC* 

TF I .18' REN 3 'END 
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Commodore 64 




Castle 
Dungeon 



Forvild dig ned til de unxvneiige 
ra?dsler under den store Dorg. 
Skrsekkelige monstre lurer I gan- 
gene. kun ventende pa at Kette 
kl&eme I dit K»d. 
Find bombeme. dererskjult i slot- 
ted og overskrid ikke tidsfnsten 



pa de tre mmutter. Spiilet er op- 
bygget. s3 he!e slottets grundpian 
findes pa ska?rmen pa en gang, 
men du ser kun et lllle felt rundt 
om din mand - so watch outlll 
Thomas Keens Nielsen 



PROGRAM 



CASTLE DUNGEON 



0 



1 
5 



10 



11 
12 
13 
14 
20 
25 

27 

30 

40 

50 
60 



70 
80 

90 



GOSUB 5000:GOSUB 1500:GOSUB 200 
:BOSUB 1000:GDSUB 1100rGQSUB 1300 
: GOSUB 1010 

GOSUB 1140 

GOSUB 3000: GOSUB 4000: GOSUB 1500 

:TI$-"000000" 
GOSUB 20: GOTO 7 
JO-0: JY-PEEKC 563205 
:J2-15-CJY AND 15): ON J2 GOTO 11, 
12,12,13,13,13, 13,14: RETURN 
JO— 40: RETURN 
JO-40: RETURN 
JO— 1: RETURN 
JO-1: RETURN 
GOSUB 10 

GET AS: IF AS- "L"THEN GOSUB 491 
:LE— 1 

IF TIS>"000300 ,, THEN AS- "TIDEN L0B 

UO":GOTO 600 
TE-PEEK(MA+JO)-40: IF TE<0 THEN LE 
-0:GOTO 170 

ON TE GOSUB 50,60,80,90,110,130, 
140, 150, 160: GOTO 170 
GOSUB 220: JO-0: RETURN 
IF NOT LEU THEN POKE MA , BL 
: GOSUB 125:AS-"DU FALDT I ET HUL" 
:GOTO 105 
K-l: RETURN 

KE— 1 : POKE 1303,43:POKE 55575,1 
: GOSUB 401: RETURN 

GOSUB 320: IF NOT SW THEN AS-"DU B 
LEU SPIST AF ET UHYRE" : GOTO 600 



100 

105 

110 



120 
125 

130 
140 

150 
160 




GOSUB 360: RETURN 
GOSUB 220 : FOR TO-1 
GOTO 600 

BO-BO-l:POKE 1B23+40»BO,45 
POKE 56095+40«BO, 1 
IF BO-0 THEN 500 
RETURN 

GOSUB 260: GOSUB 220 
FDR TD-1 TO 200: RETURN 
RETURN 

IF NOT KE THEN GOSUB 220: JO-0 
RETURN 
RETURN 

SW— 1: GOSUB 401 : PDKE 1423,49 
:POKE 55695 , 1 : RETURN 
170 XH-0:POKE HA, BL : MA-MA+JO 

: POKE MA.FI.IF K-l THEN POKE MA.42 
:K-1 

180 D-MA-1024: Y-INTCQ/40) 

: X-CQ-Y*40)*B : IF X>255 THEN XH-IN 
TCX/256) : X-X-XH-256 
190 Y-Y*B+32:P0KE HX,XH:POKE LX.X 
:POKE YS.Y.-BL-32 
IF K-l THEN K-0:BL-42 
RETURN 

FDR 1-1 TO 4 : READ NDC 1 , I ) , DUC 1 , I ) 
NEXT 

FOR 1-1 TO 7 : READ NDC2,n,NLC2, 
I5.DUC2, I):NEXT 
205 RETURN 

210 DATA B, 100, 7,50, 7, 50,12, 300, 14 

211 DATA 2,24,100,2,24,100,2,24,100, 
2, 163, 100,2,24, 100,2, 163, 100,3,35 

220 REM 



195 
136 
200 

201 
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230 POKE HI, 15: POKE HE, 19 

240 POKE UO, 15: POKE AT , 20 : POKE SU.5 

:POKE UJA.NO 
850 FOR TO-1 TO 10:NEXT:POKE WA.NO-l 

:FOR TD-1 TO 2 : NEXT : RETURN 
260 REM 

270 POKE AT, 10: POKE SU, 10: POKE "JO, 15 
280 FOR 1-200 TO 100 STEP-1 
290 POKE HI, I: POKE H2,100:POKE UJA.TR 
300 FOR TD-1 TO 3: NEXT: POKE UIA.TR-1 

:FOR TD-1 TO 3: NEXT: NEXT I 
310 RETURN 
320 REN 

330 PDKE AT, 100: POKE SU.100 

:POKE UO, 15 
340 POKE HI, 2: POKE H2, 10: POKE UJA.NO 

:FOR TD-1 TO 1000: NEXT 

:POKE UIA.NO-1 
350 FOR TD-1 TO 100 : NEXT : RETURN 
360 REN 

370 PDKE AT, 100: PDKE SU, 100 

:POKE U0.15 
300 FOR 1-1 TO 4:P0KE Hl.NOCl.I) 

:POKE H2, 100: POKE UlA , SA 
390 FOR TD-1 TO DUC 1 , 1 5 : NEXT 

:POKE UJA,SA-l:FOR TD-1 TO DUO, 13 

: NEXT : NEXT 

400 RETURN 

401 PDKE AT, 14: PDKE SU.201 

402 POKE HI ,120: POKE UA.SA 

:FOR TD-1 TD 100: NEXT: POKE UA.SA-l 

403 FOR TD-1 TO 200 : NEXT : RETURN 
410 REH 

420 POKE UD,15:POKE AT,17:P0KE SU.140 
430 FOR 1-1 TO 7.-P0KE H2,N0C2,I) 

:POKE K1,NLC2,D:P0KE WA.SA 
440 FOR TD-1 TO DUC2 , I 3 : NEXT 

:POKE UA,SA-l:FOR TD-1 TO DUC2, .' 

: NEXT: NEXT: RETURN 
450 RED 

460 PDKE AT, 100: POKE SU.120 

:POKE U0.15 
470 PDKE HI, 4: PDKE H2,4B:P0KE UA.SA 

:FOR TD-1 TO 500: NEXT: POKE UA.SA-l 
480 FOR TD-1 TO 400: NEXT: PDKE HI, 2 

:POKE H2, 24: POKE UA.SA 

:FOR TD-1 TO 900: NEXT 
4B5 POKE WA.SA-l : FOR TD-1 TO 500:NEXT 

: RETURN 

490 REH 

491 PDKE AT, 100: PDKE SU.250 
: PDKE UO.IS 

492 FDR A-10 TO 20: FDR B-20 TO 27 
:POKE Hl,A+B:POKE LI, 40: POKE WA.TR 

493 FDR TD-1 TO 2:NEXT:P0KE WA.TR-l 
:FOR TD-1 TO 1: NEXT: NEXT: NEXT 

494 RETURN 

500 POKE 53269, 0:6OSUB 410:POKE BA.l 
:FOR TD-1 TO 2000: NEXT 



510 PRINT"CCLRr':POKE 251,50 

:PRINT"CSORT,CRSR NED7, 

CRSR H0JRE115TILYKKE !" 
520 PRINT"CCRSR NED2)DU BLEU DEN LYK 

KELIGE EJER AF DUNBEONEN" 
530 GDTO 700 

600 POKE 53269,0: POKE BA,l:GOSUB 450 

:FOR TD-1 TD 5000: NEXT 
610 PRINT"CCLR,CRSR NEDB, 

SORT 5 "SPCCCC40-CLENCAS)))/2))AS 
620 PRINT"CCRSR NED3.CRSR H0JRE105DU 

FIK IKKE DUNGEONEN " 
630 GDTO 710 

700 POKE 251,0:FOR TD-1 TO 1500:NEXT 

:PRINT"CCLR,CRSR NED2 , 

CRSR H0JRE14DDENNE GANG" 
710 FOR TD-1 TO 500: NEXT 

:PRINT"CCRSR NED5 , SPACE6 3 TRYK J F 

OR ET SPIL HERE" 
720 GET ANS:IF ANS-""THEN 720 
730 IF ANS- "J "THEN PDKE BA , 0 : GOTO S 
740 PDKE 251,0: END 

1000 FOR L-679 TO 703:READ A : POKE L , A 

: NEXT: POKE 805,157: POKE B07 , 2 

: PDKE 251 ,40: RETURN 
1010 PRINT CHR$C14)"CCLR,CRSR NED5, 

HUID , SPACE2DFIND BOHBERNE SKJULT 

I SLOTTET . " 
1020 PRINT"CCRSR NED, CRSR H0JRE2DFAL 

D IKKE I ET HUL ELLER BLIU SPIST" 
1030 PRINT"CCRSR H0JRE2)AF ET UHYRE . 
TRYK 'L FDR AT" 

1040 PRINT"CCRSR NED , SPACE2) SPRINGE . 

DU HAR 3 niNUTTER" 
1050 PRINT"CCRSR NED , SPACES 3 T X L AT U 

DF0RE DIN OPGAUE." 
10S0 PRINT: PRINT: PRINT" CTRYK 

FIRE FOR AT BEGYNDE5 " 
1065 GOSUB 10: IF JYOlll THEN 1065 
1067 RETURN 

1070 DATA 72, 13B, 72, 152,72, 166,251, 

240,8, 160,255, 135,208,253,202 
1080 DATA 208,248,104,168,104,170, 

104,76,202,241 
1100 Cn-14336:CS-5324B 

;POKE 56334, PEEK C 56334 D AND 254 

:POKE 1 , PEEKC 1 3AND 251 
1110 FDR 1-0 TO 1024:POKE CH+I, 

PEEKCCS+I D : NEXT 
1120 FOR I-Cfl+320 TO CM+320+95 : READ A 

:POKE I , ABSC A-255D : NEXT 
1130 PDKE 1, PEEKC DOR 4 

:POKE 56334 , PEEK C 56334 ) OR 1 : RETURN 
1140 POKE 53272, CPEEKC53272D AND 240) 

OR 14 
1150 RETURN 

1160 DATA 247,227,246,183,215,247, 
235 , 235 , 255 , 34 , 34 , 34 , 255 , 6B , 68 , 68 
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1170 DATA 255,231,195,169,129,131, 
199,255,255, 191 ,95,64,90, 1B6, 255, 
255 

1180 DATA 191,121,112,1,0,135,55,115, 
255 , 239 . 247 , 231 , 195 , 195 , 231 , 255 

1190 DATA 255,255,255,255,255,255, 
255 , 255 , 255 , 255 , 255 , 129 , 129 , 255 , 
255,255 

1200 DATA 255,255,255,255,255,255, 
255 , 255 , 255 , 253 , 251 , 247 , 143 , 207 , 
175,255 

1210 DATA 191,121,112,1,0,135,55,115, 

255 , 255 , 231 , 0 , 0 , 231 , 255 , 255 
1300 PRINT CHRSC 147) : POKE BA,0 

: POKE BR,0 
1305 READ L,N:1F N— 1 THEN GGSUB 410 

: FDR TD-1 TO 3500 : NEXT : RETURN 
1310 FDR J-0 TO N : READ 5: POKE L+J.S 

: NEXT: GOTO 1305 
13B0 DATA 1234,17,85,64,73,112,64, 

1 10 , 85 , 64 , 75 , 64 , 1 14 , 64 , 1 12 , 32 , 32 , 

112,64,75 
1370 DATA 1274,16,93,32,32,107,64, 

1 15 , 74 , 64 , 73 , 32 , 93 , 32 , 93 , 32 , 32 , 

107,64 

1380 DATA 1314,17,74,64,75,75,32,125, 
85 , 64 , 75 , 32 , 75 , 32 , 74 , 64 , 75 , 109 , 64 , 
73 

1420 DATA 1393,20,114,64,73,73,32, 

1 10 , 85 , 73 , 1 10 , B5 , 64 , 73 , 1 12 , 64 , 75 , 
85,64,73 

1421 DATA 85,73, 110 

1440 DATA 1433,20,93,32,93,93,32,93, 
93 , 93 , 93 , 93 , 64 , 73 , 107 , 64 , 32 , 93 , 32 , 
93,93 

1441 DATA 93,93 

1450 DATA 1473,20,113,64,75,74,64, 
115, 125,74,75,74,64,75, 109,64,73, 
74,64,75,125 

1455 DATA 74,75,-1,-1 

1500 WA-54276: NO-129: TR-17 : UO-54296 

: 50-54272 : AT-54277 
1505 BA-53281 : BR-532B0 : LE-0 : 5UI-0 : KE-0 

:B0-3:L0-44 
1510 SA-33: SU-5427B : H 1 -54273 : H2-54272 

:FI-40:BL-32 
1515 HX-53264:LX-5324B: YS-53249 

:POKE 53271,1: POKE 53277,1 

1517 POKE 53269,1: FOR 1-832 TO B96 
:POKE 1,255: NEXT: POKE 2040,13 

1518 POKE 532B7,1:PDKE 53275,1 

1520 FOR I -SO TO 50+28 : POKE 1,0: NEXT 

:P0KE UO, 15: RETURN 
3000 POKE UO , 0 : 1-49152 

: IF PEEKC 1*23-216 THEN SYS 49160 

:GOTO 3025 
3010 READ A: IF A-256 THEN SYS 49160 

:GOTO 3025 
3020 POKE I , A : I- 1 + 1 : GOTO 3010 



3025 FOR 1-1024 TO 1062:PDKE 1,41 

:POKE 1+960, 41: NEXT 
3027 FOR 1-55296 TO 56295 : POKE 1,0 

: NEXT: RETURN 
3030 DATA 1,0,216,255,255,255,40,0, 

169,41 , 133, 2S1 , 169,40 
3050 DATA 133,253,169,4,133,252,133, 

254 , 169 , 147 , 32 , 210 , 255 , 162 
3070 DATA 0,160,0,169,41,145,253,200, 

192 , 39 , 208 , 249 , 24 , IBS 
3090 DATA 253,105,40,133,253,144,2, 

230 , 254 , 232 , 224 , 23 , 208 , 229 
3110 DATA 160,0,169,4,145,251,169, 

255, 141 , 15,212, 169, 128, 141 
3130 DATA 18,212,173,27,212,41,3,133, 

173,170,10, 16B, 24,185 
3150 DATA 0, 192 , 101 , 251 , 133, 170, IBS , 

1 , 192, 101 ,252, 133, 171 ,24 
3170 DATA 185,0,192,101,170,133,253, 

1B5, 1 , 192, 101 , 171 , 133, 254 
3190 DATA 160,0,177,253,201,41,208, 

IB , 13B , 145 , 253 , 169 , 32 , 145 
3210 DATA 170,165,253,133,251,165, 

254 ,133, 252 , 76 , 62 , 1 92 , 232 , 1 3B 
3230 DATA 41 , 3 , 197 , 173, 20B, 1B9, 177 , 

251,170, 169,32, 145,251,224 
3250 DATA 4,240,26,138,10,168,162,2, 

56, 165,251 ,249,0, 192 
3270 DATA 133,251,165,252,249,1,192, 

133 , 252 , 202 , 208 , 23B , 76 , 62 
3290 DATA 192,169,1,160,0,153,0,216, 

153,0,217,153,0,218 
3310 DATA 153,0,219,200,208,241,96, 

256 
4000 REfl 

4010 T-32:Q-42:F0R 1-1 TO 7 

:GOSUB 4100: NEXT 
4020 Q-44:F0R 1-1 TO 6:G0SUB 4100 

: NEXT 

4030 0-45 : FOR 1-1 TO 3:G0SUB 4100 
: NEXT 

4040 Q-43:F0R 1-1 TO 2:G0SUB 4100 
: NEXT 

4050 Q-47:F0R 1-1 TO 5 
4055 GOSUB 4100 

4060 IF(PEEKCPL-40X>32)ORCPEEKCPL+4 

0><>3S)THEN POKE PL,BL:GOTO 4055 
4070 NEXT 

4080 Q-4S:GDSUB 4100 

4090 Q-FI:GOSUB 4100:HA-PL 

4095 T-41:Q-32:F0R 1-1 TO 50 

:GOSUB 4100: NEXT: RETURN 
4100 X-CRNDC8 3*36+2 ) : Y-INT(RNDC8)"20 

+3) : PL-Y*40+X+1024: IF PEEKCPL3<>T 
THEN 4100 
4110 POKE PL, Q: RETURN 
5000 PRINT"CCLR,CRSR NED11, 

CRSR H0JRE14,RUS 0N3UENT LIDT l m 
5010 RETURN 
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Hvis du indimeiiem har brug forat 
sortere en sterre datamasngde. 
kan du bruge denne procedure, Et 
kald af proceduren med EXEC 
quick (a.n) vil sortere de n f0rste 
elementer i array'et a. Som proce- 
duren er listet her kan den kun 
sortere taL men kan meget nemt 
konveneres til og&S at sortere 
ttkst 

Metoden. der bliver bnigt. er en 
fortedret udgave af quicksort me- 
toden og er mindst 10% hurtige- 
re, 

Linie 420-550 er kun en demon- 
stration af proceudren. der, hvis 
man Indtaster n, laver n tilfieldge 
taL sorter dem og samtidlg bereg- 
ner P hvor lang tid selve sorter! ngen 
tog, 

L3F5 Chnstensen 
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0010 
0020 
0030 
0040 
0050 
0060 



// Cooyright (c) by Lars Christensen, Hillerod 

// 




0070 // 

00S0 PROC quick <REF a(>,n> CLOSED 

0090 DIM stak<INT(L06<n)/L0G<2>>+2,2> 

0100 M"l; stak U, 1> t-1 ; stak(l,2)t»n 

0110 REPEAT 

0120 venst r:=stak (s, 1 ) ; hs j re : =st ak <s, 2) ; s : =s-l 

0130 REPEAT 

0140 ii-venstr; jS-hojre; x!«a<<i+i> DIV 2) 

0150 REPEAT 

0160 WHILE a(i)<x DO 

0170 WHILE a(j)>x DO j<=j-l 

OiaO IF i <=j THEN 

0190 sk:=a(i>; a<i):=a<j); a(j):-sk; ji-j-l 

0200 END IF 

0210 UNTIL i> j 

0220 IF j-venstr <hc»jre THEN 

0230 IF Kheijre THEN s:=s+l; 5tak<s, 1) stak(s,2>: 

0240 ho j re : ~ j 

0250 ELSE 

0260 IF venstr(j THEN s:=s+l; stak (s, 1 ) :=venst r ; stak 

0270 venst r:=i 

02S0 END IF 

0290 UNTIL h»j re- venst r (=12 

0300 UNTIL s-0 

0310 FOR i :=2 TO n DO 

0320 vi-ati); j!=i 

0330 WHILE a(j-l)>v DO 

0340 a< j) :=a( ; 

0350 IF j=l THEN GOTO ud 

0360 ENDWHILE 
0370 ud: 

0380 a< j) i-v 

0390 NEXT i 
0400 ENDPROC auick 
0410 

0420 ZONE 8 

0430 INPUT "n ? " : n 

0440 DIM tal <n> 

0450 PRINT "De usorterede tal i " 
0460 FOR i:=l TO r» DO tal < i ) i«RND ( 1, n) 
0470 FOR i i-l TO n DO PRINT tal(i), 
0480 PRINT 

0490 PRINT "Sorting..." 

0500 tid:-SYS<3) 

0510 EXEC quxck(tal,n) 

0520 tid:=(SYS(3)-tid)/50 

0530 FOR i:=l TO n DO PRINT tal(i), 

0540 PRINT CHR*(7> 

0550 PRINT "Det tog ";tid;" sek" 



Amstrad 



Dette program HI Amstrad gir i alt 
sin enkelthed ud p3 at kunne stu- 
dere et stykke hukommelse (evt 
en binaer/ascli fil) i hex ASCII, der 
er mutighed for LOAD ft SAVE & 
CATsamt at hoppe rundt i hukom- 
meisen. Desuden kan du sage efter 
et bestemt ord/saetning i ASCII 
for derefter at udskifte det med et 
andet. Der er flere smi finesser. si 
som CURRENT ADRESS bliver ud- 
skrevet konstant t bide hex og de- 
cimal, endvldere olyser program- 
met, om der er blevet load'et et 
program. 

Da programmet kun fylder 5K har 
det plads til rtmellgt store filer, og 
det er ganske underholdende at 
sa?tte sksegge tekster ind i spil. el- 
ler eventuelt overs^tte dem til 
danslc 

Kenneth Bernholm 




1 * Semantics flon i tor vl . O By Kermi t The Steel frog 

2 * For TAST - Det dansUe programblad 

3 ? 

A Ia-iOOOO:ca-ia: 1*1 l«»"NONE" 
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5 MODE 2 : BORDER HINK 0, 1 : INK 1,26:WIND0W MO . 1 , 80, 1 . 25 '• WI NDOW Ml , 9, 49, 7,17: WINDO 
W HZ, 31,71, 7, 17IWIND0W #3 , 9, 71 , 22 , 25 : PAPER MO,0:PEN 

•0,1: PAPER NXftlPEN •i.o: PAPER mz,i:pen #2,0: PAPER W3,l:PEN •3,o:cls mo:cls • i : c 

LS H2:CL5 H3 

6 LOCATE MO, 1,1: PRINT WO, " ";CHR*(Z4)|" Semantics Monitor vl.O - By 
Kermit The Steelfrog 87 ■; CHR* ( 24 >: LOCATE M0,9,3:PR 

INT CHR*(Z4> ( "Hexadecimal code" I CHR* ( 24 J ! LOCATE MO, 51,5: PRINT CHR* 124 > » " Asc i 1 CO 
de"SCHR*(Z4> 

7 LOCATE 9,20:PRINT CHR* 1 24 ) I " Users aid" I CHR* ( 24 ) : LOCATE 9,2i:PRINT "CTRL+I : In 
sert Text" 

8 LOCATE N3,l,i:PRXNT H3,"TAB : Screens " : CHR* < 240 ) J " CAPS LOCK : Screens " 1 CHR 
*<241H" CTRL*L : LOAD program " : LOCATE H3,1,Z:PRIN 

T H3,CHR*<24W "CTRL*W : Search for a particular word CTRL+S : SAVE program"(C 
HPS I 24) 

9 LOCATE W3,1,3:PRINT M3,"CTRL+R : Restarts Semantics monitor CTRL+C : CAT" 
: LOCATE M3,1,4:PRINT M3 , CHR* ( 24 ) J" CTRL* J : Jump to L 

OAD/START address CTRL+P : Specify j umpadd . * I CHR* ( 24 ) : GOSUB 63:F0R a-22 TO 25:L 
OCATE 71 ,»! PRINT CHR* ( 32 ) : NEXT : GOSUB 58 

10 LOCATE MO, 1,4: PRINT WO , CHR* ( 24 > t 'Current " I CHR* < 24 ): LOCATE MO, 1,5: PRINT MO, CHR 
* ( 24 ) I "address" I CHR* ( 24 ) : GOSUB 39:G0SUB 33 

11 GOSUB 63: IF INKEY (62) "128 THEN 12 ELSE 13 

12 CLS MO:CAT:PRINT MO, CHR*(24> J "Press any key " i CHR* t 24 ) : CALL 6tBB03: CALL fcBB18:G 
OTO 5 

13 IF INKEY135J-0 THEN 64 ELSE 14 

14 IF INKEY (50) "128 THEN 15 ELSE 16 

15 CALL fcBB03:GOT0 4 

16 IF INKEY 136) -128 THEN 17 ELSE 21 

17 GOSUB 20:L0CATE MO , 25, 20 : PR INT CHR* ( 24 ) : " Load . . . : " i CHR* ( 24 ) I : INPUT lfil*:GOSU 
B 20:L0CATE MO, 25, 20: PRINT CHR* ( 24 ) i " Into address..: 

" ; CHR* ( 24 ) 1 : INPUT la:GOSUB 20:L0CATE MO, 25, 20 

18 PRINT CHR* ( 24 ) ! " Lengh t . . : " I CHR* 1 24 ) t : INPUT lt:GOSUB 20:G0SUB 56 : OPENOUT ■ ! d ■ : M 
EMORY 1 a- 1 : CLOSEOUT : LOCATE MO , 25 , 20 : PR I NT CHR*(24)i" 

Loading ■ I 1 f 1 1*1 CHR* < 24 ) 

19 LOAD i 1*. la: GOSUB 58: ca= la: GOSUB S7:G0SUB 33:G0T0 11 

20 LOCATE M0,25,20:PRINT MO , STR ING* ( 50 , - " ) : CALL 8*BB03 : RETURN 

21 IF INKEY1601-128 THEN 22 ELSE 24 

22 GOSUB 20:L0CATE MO , 25 , 20 : PR I NT MO , CHR* ( 24 ) I " Save- . . . : " I CHR* 124) i I INPUT M0,s+il 
*:GOSUB 20:L0CATE MO,25,20:PRINT M0,CHR*124) i "Execut 

ion address. . : " ; CHR* ( 24 ) : : INPUT MO , ex*: GOSUB 20 

23 LOCATE MO, 25, 20: PRINT CHR* ( 24 ) ; "Sav 1 ng ■ I sf i 1 * S CHR* 1 24 ) : SAVE " ! ■ *sf i 1 S , b, la, 1 
t,exa:GOSUB 20:G0T0 11 

24 IF INKEY168)=0 THEN 25 ELSE 26 

25 ca-ca-220:GOSUB 33:G0T0 11 

26 IF INKEY < 70 ) -O THEN 27 ELSE 28 

27 ca«ca*220: GOSUB 33:G0T0 11 

28 IF INKEY!45>-128 THEN 29 ELSE 30 

29 ca»la:GOSUB 33!G0T0 11 

30 IF INKEY (27) =128 THEN 31 ELSE 32 

31 GOSUB 20:L0CATE M0,25,20:G0SUB 63: PRINT CHR*(Z4M "Specify J umpaddress. . . : " 1 CH 
R* ( 24 ) i : INPUT sj a: ca=sj a: GOSUB 33:G0SUB 20:&0T0 11 

32 IF INKEY(59>=128 THEN 41 ELSE 59 

33 LOCATE 2,7:PRINT" ": LOCATE 1,8: PRINT MO," -:CLS Ml:CLS M2:G0SUB 39: 
GOSUB 56:pa»ca:L0CATE M0,2,7:PRINT " tt" *HEX* tea) : LOCA 

TE M0,1,8:PRINT MC,ca:FOR hexrow=l TO 1 1 : FOR hexcol-1 TO 40 STEP 2: LOCATE Ml, hex 
col,hexrow:PRINT Ml , HEX* I PEEK (pa) ,2) 

34 pa = p a ' L : NEXT hexco 1 , hex row : pa=ca 

35 FOR ascrow-1 TO ll:FOR asccol-1 TO 20: tegn-PEEK tpa) : IF <PEEK(paX32) OR (PEEK 
(pa)>255) THEN tegn=ASC 1 ■ . " > 
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«:print chr*(3Z> :next a : re 



36 IF tegn-32 THEN 38 ELSE 37 

37 LOCATE H2, asccol , ascroH: PRINT #2 . CHR* ( tegn ) 

38 pa-pa+i:NEXT asccol , asctDw: pa-ca: GOSUB 57: RETURN 

39 FOR a-7 TO 17:LOCATE 49,a:PRINT CHR* 1 32 I : LOCATE 71. 
TURN 

40 RETURN 

41 startadd=l a: 1 engh t = 1 t : execadd=exa 

42 GOSUB 20:L0CATE HO , 25 , 20 : PR I NT CHR* ( 24 ) ! "Hunt i CHR* 124) i : INPUT search*:GO 
SUB 20:L0CATE "0 , 25 , 20 : GOSUB 63IPRINT CHR*(24> I "Hunt 

ing...: "S CHR* < 24 || search*: GOSUB 56 

43 FOR search=start*dd TO startadd+ lenght 

44 P*"LEFT* ( search*, 1 > 

45 po*=UPPER*'P*> 

46 a=PEEK(search> :b*=CHR*ta> : c*=UPPER* < b* ) 

47 IF C*-pD* THEN 48 ELSE 53 

48 FOR try-search TO sear ch*LEN ( search*) - 1 

49 q=PEEK < try) : w*=CHR* (q> : e*=UPPER* i w*> : y= i t ry + 1 ) -sear c h : r *-M I D* ( searc h* , y , l ) : t* 
■UPPER* ( r*) 

50 IF e*=t* THEN 51 ELSE 53 

51 NEXT try 

52 ca-search: GOSUB 33:GOSUB 20:G0SUB 57:G0T0 11 

53 NEXT search 

54 GOSUB 20:L0CATE HO , 25, 20 : PRINT CHR*824)( - I can't find..: * I CHR* t 24 ) ; sear c h* 

55 FOR k-1 TO 3500INEXT k : GOSUB 20:G0SUB 57:G0T0 11 

56 LOCATE HO, 34, 5: PRINT "WAIT ":RETURN 

57 LOCATE HO , 34 , 5: PRINT "READ Y " : RETURN 

38 GOSUB 20 : LOCATE HO, 12, 3: PRINT CHR*(24>1" Program in memory . . . : " » CHR* (24) | 1 "I 
l*iI*:RETURN 

59 IF INKEY135J-128 THEN 60 ELSE 11 

60 GOSUB 20:s-0:L0CATE HO,l,i:PRINT CHP*C24»:F0R a=27 TO 70: g=PEEK ( ca+s ) : IF (g<3 
3) OR (g>255> THEN y=32 

61 LOCATE HO, a, 19 

62 PRINT CHR*(g) :s=s+i:NEXT a: LOCATE HO, 1 , 1 : PRINT "I " : LOCATE HO, 23 , 20 : GOSUB 63:IN 
PUT rep»:s-0:FOR q-1 TO LEN ( rep*> - 1 : w-ASC (MID* 1 rep*, q 

,1)>:P0KE ca*s,w:s = s+l :NEXT q: LOCATE HO, 27, 19:FRINT SPACE* I 50 ): GOSUB 2O:G0SUB 33 

:goto ii 

63 gosub 40: return 

64 CALL e«BB03:L0CATE 25,20:PRINT CHR* t 24 > • "Text : " i CHR* ( 24 ) 1 : INPUT txt*:FOR kkl- 
ca TO ce*LEN< txt*) -1 : POKE kk 1 , ASC ( MI D* I t / t», kk 1 -ca+1 

. 1 ) > : NEXT kk I : GOSUB 20: GOSUB 33: GOTO 11 
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Nlr du ser 


Betyder det 


Ou trykker 


(CLR) 


Screen clear 


SHIFT CLR/ HOME 


(HOME) 


Home cursor 


CLR/HOME 


(CRSR NED) 


Cursor ned 


CRSR OP/ NED 


(CRST OP) 


Cursor op 


SHIFT CRSR OP/ NED 


(CRSR H0JRE) 


Cursor hojre 


CRSR H0JRE/ VENSTRE 


(CRSR VENSTRE) 


Cursor venstre 


SHIFT CRSR HfSJ RE/ VENSTRE 


(DEL) 


Delete tlibage 


INST/DEL 


(INST) 


Insen 


SHIFT (NST/DEL 


( RETURN ) 


Return 


SHIFT RETURN 


(SPACE) 


Space 


SPACE 


(RCS ON) 


Reverse on 


CTRL 9 


(RVS OFF) 


Reverse off 


CTRL 0 


(SORT) 


Sort 


CTRL 1 


(HVID) 


Hvid 


CTRL Z 


(R0D> 


HfiM! 


CTRL 3 



(CYAN) 


Cyan 


■ : 


(ULLA) 


una 


CTRL 5 


(OR0N) 


Gran 


CTRL 6 


(BLAA) 


Bta 


CTRL 7 


(CUL) 


Gul 


CTRL 8 


(ORANGE) 


Orange 


COMMODORE 1 


(BRUN) 


Brun 


COMMODORE 2 


(LR0D) 


Lywrpd 


COMMODORE 3 


(GRAAI) 


Gra 1 


COMMODORE d 


(GRAAZ) 


Gra 2 


COMMODORE 2 


IL.GR0N) 


Lysegran 


COMMODORE 6 


(L8LAA) 


Lyseoia 


COMMODORE 7 


(CRAA3) 


Gra 3 


COMMODORE 8 


(Fl) 


Funktionstast 1 


Fl 


(F2) 


Funktionstast 2 


F2 


(F3| 


Funktionstast 3 


F3 


(F4) 


Funktionstast d 


F4 


(F5) 


Funktionstast 5 


F5 


(F6) 


Funktionstast 6 


F6 


(F7) 


Funktionstast 7 


F7 


■ FBI 


Funktionstast 8 


F8 
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Commodore 64 








Action! 

Styrdit Laudan Mocucoxe 16 Jet 
turbinefly ind i dodens passage, 
mens du forsvarer dig mod The 
Wing jagere fra Star Wars. Vapr 
hurtig. Forsigtig. 
Ptbv at na enden af korridoren... 
Og lor at bruge en forslidt frase: 
*May the force be with you'l 

Gil Lempert Schwarz 



5 PRINT" <CLR>*=P0KE 214,17 'PRINT 

PRINT rflB<13>" 
•FOP J=l TO 2000: NEXT 

6 PRINT TftB<t3>"<S0RT?VELK0MMEN T I L : " 

7 PRINT TRB<13> M (HVT.E>B0DENS PftSSflGE" 

8 PRINT TflB< 13> " CSORT^ET SPT| «F GIL" 
tfl POKE 53281, H POKE 53282, 12 

: POKE 55283 .13- 2=53270 
POKE 2,PEEK<Z>0R IS 



20 



iS^POKE S6*56:CLR 



POKE 52, 
POKE 56334, PEEK<56334>fiNB 254 



POKE l,PEEK<l>flWE 



251 



38 



35 



40 



S0 



IF PEEK < 14336)060 THEN FOR 1=6 T 
n nil : POKE I + 1 4336 . PEEK < I +53248 *> 
NEXT 

POKE 1. PEEK, a > OR 4 : POKE 53286,0 
i V-53248 

POKE 56334.. PEEK 56334 > OP 1 

■POKE 53272, < PEEK < 53272 > AND 248 >+ 

14= POKE 54296,0 

FOR i=0 TO 7 ■ POKE I 4336+27*8+ J. 170 
:P0KE 1 4336+29*8+ J, 85 "PERD 0 
POKE 14848+1,0 
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55 POKE 14336+28*3+ J, 255 
POKE 14336+31*3+J, 
255-PEEK< 14336+46*8+ J > : NEXT 
57 DATA 255,243.243,192,243,243,255. 

255 

AO FOR J=0 TO 15 -READ 0 
: POKF 14A56+.T,0:NFXT 
DATA 254,254,252,249.232, 156,235. 
247 

61 DATA 127,127.63,15,23,57.215.239 
85 D=55296-1024 ; FOR J=1024 TO 1503 
! IF RriD<l».9 THEN POKE J, 31 
POKE J+H,3- J=J+i 

87 POKE J. 28 ; POKE J+B,8*NEXT 

:D*=" SCORE" 
S3 FOP J»l TO 5 POKE 1023+ J, 

ASC < M I D* < 0* . J * 1 ) i -64 

:POKE 1023+J+D.0- NEXT POKE 1029,53 

89 FOR J=1029 TO 1035 POKE J+D,0HEXT 
! N3=3 : GOSUB 5000 : SO0 : GOSUB 50 1 0 

90 FOR J=l TO 10: READ 9 s POKE 0-47.^4 
i NEXT 

95 DATA 1037.1090,1165.1212,1251, 

1290, 1331 . 1297. 1371 , 1413 
110 FOR J=t TO 16 
113 8*0 

115 IF J>5 THEN IF J/2=INT(J/2>THEN 

F=F+40:G=4O 
120 READ C 
130 T=l+J 

14A FOR X=0 TO 1ft-T:M=1344+T*40+X 

:M«1344+J*40+39-5-: 
150 Q=M : GOSUB 5O0 : '-!=N ' GOSUB 500 
"160 NEXT X 

170 FOR I=1364+J*40 TO 1444+.T*40+F S 
TEP 40 

ISO Q=I-T-1 = GOSUB 509 : 0~ I +T 1 GOSUB 500 

190 NEXT : 1=1-40 

2O0 FOP H=I-T-1 J T+T 

2 1 ft Q=H ■ GOSUB 500 ' 0=H-G : GOSUB 500 

: NEXT NEXT - GOTO 700 
300 BAT A 32,27,29.32,27,29.29.32,32, 

27 , 27 . 2? , 29 , 29 , 32 , 32 

500 IF Q<2024 THEM POKE Q,C 
:ROKE 0+9*8 

501 RETURN 

700 IF PEEK < 832 ') =33 THEN 000 

705 FOR J=0 TO 2 - FOR 1=0 TO 62 -READ "P 

: POKE 832+J*64+ I . 9 ■ NEXT : NEXT 
710 DATA 33.O.0-64, 128,6, 140,64.0, 

153.64,0.243- 192,0. 158,64,0, 140, 
64 , 0 

720 DATA 64,128,0.33,0.0,0.0,0,0.0.0. 

0,0,0.0,0,0,0,0,0 

730 DATA 0.0,0,0,0,0,0.0,0,0,0,0,0.0. 

0 . a , 0 , o . 0 . fi . n 



735 DATA 0.0,0.0,0,0,0,0.0,0, 0,0,0.0. 

0,0,0.0.0,0,0 

740 DATA 0,8,0,0,8,0,0,23,0,0,28,0,1, 

255, 192,3,255,224, 127, 127, 127 
750 DATA 30 . 62 , 60 , 3 , 99 , 96 ,1,1 93 ■ 1 92 , 

v .0.0.0,0,0,0,0.0,0,0,0-0 

770 PATfl Pi. 128.0.^2.32.0.0.2,0, 18, 
128,2. 40,2-0, 152. 130* 128,96, 123, 
1 30 

780 DATA 128,150,136,0,1,215,64,215, 
64,128, 125. 10,0,20. 130,0,0,128. 96, 

105-0 

735 DATA 0,123.128,130,128,128,41.0. 

64,6.0,64, 10,2- 128. 12A. ft. 2.0- A. 0 
7^fl FHP .1=15232 TO 15296 POKE J . 0 

: NEXT : FOR J-15253 TO 15273 READ 0 

: POKE J, Q= NEXT 
792 DATA 0,112,0,0,136,0,1,36.0,1, 

116,0, 1,36,0,0. 136,0.0, 112.0 
000 V=53243 : POKE V+2 1,0: POKE 2040/14 

: pntf F V+39 . 1 : PAKF V+28 ■ 0 

=POKE V+46,0 
805 POKE 2047, 238 : POKE V+16,0 

: POKE V+23,0 POKE V+29,0 

:FOR J=l TO 6 : POKE 2040+ J, 13 
ftlA POKE V+39+J, IHT<RND<1>*3>+5NEXT 
ft 15 FOR J-54272 TO 54299 ; POKE J.O 

= NEXT 

900 TF V05324S THEN STOP 
«10 X= 160 POKE V,XPOKE V+1,200 
POKE V+29, 1 : P0KE V+23, 1 
: POKE V+21 i 1 i LV=1 - W=4 : E=8 
920 POKE 2047, 238 : IF PEEKU9172)O20 

6 THEN GOSUB 2000 
925 POKE 49152, 6 ; POKE 49153,6 

:POKE V+46-0 
930 ftVS 33800 

933 S=54272 POKE S+24,15 POKE S+5, 1 
:POKE S+6 • 128 : POKE S+4,129 
: POKE 5+1 • 12 

930 A-0 

990 IF A>11+LV*3 THEN 6000 
995 IF (PEEK < 56321 >AND 16>=0 THEN GOS 
UB 6200 

[000 FOR T=l TO 6* IF PND(1><Cl-LV/?0 

•OP X<J)O0 THEN 1050 
1005 POKE 2040+J, 13 ; X<J>=130 V(J>=120 

:A=A+1 

101O M"J( J>=RHD< 1 >*«:5+LV/2>-2-LV/4 
POKE V+39+ J, IHT<RND< 1 >*3+0> 
R<J>«*J 

1020 POKE V+J#2,X<J>P0KE V+l+J*2, 
VC X) : POKE V+2 1 , PFFK < V+2 1 > OR < 2 T J > 
' GOTO 1O80 

105O NEXT 

1080 FOR J=l TO 6- IF X- J>=0 THEN NEXT 
; GOTO 1110 
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1085 IF YCJXISfl OR R<J>«E THEN 1895 
1096 POK E V+29 .. PEEK < V+2? >OR < 2 1 J > 
POKE V+2 3 , PEEK < V+23 > OR < 2 tJ > 
: p < .n=F: NX -' T > =M2 O >*2 

1092 FOP N=S+7 TO 3+13 POKE N/0-NEXT 

1093 POKE S+24. 15 -POKE 3+12,297 
:POKE 3+13,0-POKE S+3. 10 

: POKE 8+11/33 
1 095 V < J > = V < J > +R< J> ■ X < J > »X ( J ) +m;< < J > 
1100 POKE V+J*2,X<J>;P0KE V+l+J*2, 

1104 TP V<J><222 AND PFEK«:2040+J> = 13 
THEN 1107 

1105 XCJ>*0 : POKE V+21, 
PEEK < V+2 1 > AND < 255-2 1 J -> 

1106 POKE V+29 , PEEK < V+29 > AND < 255-2 t J > 
POKE V+23, PEEK < V+23 ) AND ( 255-2 tJ > 

1107 NEXT 

llld IF<PEEK<V+30>AND 1>01 THEM 990 
1111 POKE V+21, 1= POKE S+ll-O 
1120 POKE S+ 1.4 FOP 1=1 TO 10 
:POKE S+24, 15-ABSC6-I) 

FOR J=0 TO 7: POKE V+39.J 
1130 FOP H«l TO 1 0 NEXT NEXT NEXT 

POKE S+24, 15 POKE S+1,12 
1140 G08UB 5O20 K=PEEK<V+30 .' 

2000 J«0:RERD T IF T -"999 THEN STOP 
2002 READ Q=IF 0>=0 THEN POKE J+T,0 

J-J+l GOTO 2002 
2004 IF QO-99 THEN GOTO 2000 
2006 RETURN 

2020 DATA 49 1 72 1 206 . 0 . 1 92 .173, 0 , 1 92 , 
240.3,76, 100, 192 

2030 DATA 173. 1.1.92. 141. 0,192. 162,1. 
254 , 32 , 208 , 1 89 , 32 , 203 ,41, 255 , 233 , 
253,48,9 

2040 DATA 222,32,208,222,32,208.222, 
32 i 208 

2050 DATA 232 , 224 , 4 , 208 , 230 , 76 . 1 OO ■ 
192.-1 

208O DATA 49252.173. 1,220.41,4.203. 

1 S . 1 73 - O • 20ft 
2090 DATA 233,105,43,8,173,0,208,233, 

4, 141,0,208 
3O00 DATA 173,1.220,41,8,208,15,173, 

0.208 

3010 DATA 233.218,16,3,173,0,203,105, 

4, 141 .0,203. 76,49,234.-1 
3050 DATA 530O0 . 1 20 . 1 69 , 20 , 1 4 1 , 20 , 3 . 

169. 1^2. 141 .21 .3. 8ft. 96- -99 

5000 IF NS>6 THEN NS=6 SC=SC+375 
; GOSUB 5010 

5001 FOR J=1062 TO 1065-NS#3 3TEP-3 
^POKE J, 65 POKE J+ 1,66 POKE J+B,0 
; POKE J+l+D-0 NEXT 



5002 RETURN 

5010 S*=STR*<SC> FOR J«J TO LEN<8*> 
POKE 1029+T. ASC'MIDJ'S*, J, 1)> 
: NEXT 

5013 O=INT'.SC/10O0 > • IF 0>P THEN P=0 

:NS=NS+1 GOSUB 5000 : GOSUB 5050 
5016 RETURN 

5020 FOP 1=1 TO 2 POKE 1064-NS*3+I . 28 
:NEXT NS=NS~1 : IF NS>=0 THEN RETURN 

5021 PRTNT"CCLRjCRSR NED 1 9, 
CRSR H0JRE14?GflME OVER" 

5022 PR I NT".; CRSR H0JRE14. 
CRSR NED ? C OPVR 1 GHTC d 1 936 " 

5023 PRINT" < CRSR HO IRE 14, 
CRSR NED > BV GIL.L.S" 

5031 POKE 56334 . PEEK < 56334) AND 254 

5032 POKE 78*.49:P0KF 789,234 

5033 POKE 56334. PEEK < 56334 > OP 1 
:P0KE 198,0 POKE 53249,0 

POKE 54296,0 

5034 INPUT" <CPSP H0JPE14, 

CRSR NEB>ET NVT SP1L (VH> ";XX* 

5035 IF XX$="J"THEN RUN 

5036 IF KX*="N"THEN END 

5050 FOR N=S+14 TO ^+20: POKE N . 0 : NEXT 

5051 POKE S+24, 15:P0KE 3+19,61 

POKE 3+15. 30 POKE 3+13, 17 : RETURN 
60O0 POKE V+21, 1 FOR J =5 TO I STEP-1 

: POKE 49153,, I FOR I=132-J#20 TO 1 

42-J#20POKE S+1,1 
6010 FOP H=l TO 40 NEXT : NEXT ! NEXT 

: sr:=RC+i V*75t GOSUB 5010 

FOR J=l TO 3000 NEXTLV=LV+1 
6O20 FOP J=2 TO 6 POKE 49153, J 

: FOR I=142-J*26 TO 132-J*20 STEP-1 
: POKE S+1,1: FOR H=l TO 40 
6030 NEXT : NEXT NEXT i W=M+1 : E=E+2 
6O40 GOTO 980 

6209 M5<»<1^6-PEEK<V>>^7 

: POKE V+ 1 4 , PEEK < V ) + 1 2+M?£ 
POKE V+15. 195 1=3 

6210 POKE V+21 ,PEEK<V+2r'0R 128 
FOR J=195 TO 130+LV*2 STEP-3 

6220 POKE V+15, J 1=1+1 

:IF 1=5 THEN 1=8 POKE V+14, 

PEEK<V+14>+HH 
6?^fl K*PEEK<V+30>-IF<K AND 12ft >=0 TH 

EN NEXT : GOTO 6300 

6234 FOR N=3+14 TO S+20POKE N.0 NEXT 

6235 POKE S+24, 15 POKE 3+19,14 
•POKE 3+15,2= POKE 3+18, 129 

6249 FOR J=l TO 6 : IF<K AND<2TJ' >=0 T 
HEN NEXT 

6250 POKE 2O40+.T .15: sr:=fif:+?5 
! GOSUB 5010 

630O POKE V+2 1 , PEEK V+2 1 ) AND 127 
: RETURN 
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0 REM 5 *KLIiUi..PED£PbLH** 

1 DOTMq 

2 L=L-W H-:j'lf"rta"L"ll " • If L<HTHEH42 

5 OUJ0&T02?.30,35,»,35. 35 

4 r^'j7]54127 J0=-o:F1U>a37152/i^ 
Nl»i6>". > 

5 X«-s*2RHl€>=. / IFJtl0ftPEEKCiy;'>B341HtND=-H GOT 022 
r lFJ20RPEEk« 197 >=33THEMU=-W ■ IFpEEl <>l*D)C0I02fl 

.' lFH0ftP£Ek<15'?>»39THEHPOKEV-2. 150 J*M » ■ 0QT027 

8 F-FHl- IFPEEVa'f laETHEHPOKEF-H.E-POKEF*S*iHT<RND(. >*2> oOTOll 

9 I FPEEk < F>*. rHENPOKE 7711,15 POKEF-M -E-F-7712-G0T014 

10 POkEV-U. 140 : Pvi»;EF-W.E : GOTO39 
I! !FPEfck'.F*J_v = . THEIIM 

12 PG».£F.E F=F*22 P0KE7711-I2- IFPEEh<F>«£IHEltf»GKEF.6+IKI\RHIK*. MA'QOTOIH 

J j POKEF . 25 « PGKEV-W, 140 < G0T039 

14 o=t,*w lKEtU;\ovf-ETHEHPOkEO-W-E P".iKEu.t;»IIIT<RHD' . ;*2j O0T017. 
1 1 FPEEI < 0 - = . THEl F0KE77 11.15- POKEG-H . E : 0*77 12 0DTO2 

16 POKEV-Hn 140P0kEG-U.E;GGT039 

17 IFPEEk'G+22>-.THEN2 

18 fi 4> Eu» E 6*0+22 '• P0KE771 1-12; lKPEhK<0>»ETHEMP0».E0.6*im«.RUD'.. >*2"00Tu«j 

13 P0K£0,25-PQKEV-Hi 140 G0T039 

» IFPEEk- ft+D >=ETH£Hft=fi »D i PGkEfi-D, E P0KEB.3 GOTOS 
.:l POKEH.-E rWi •!» • POKEft , 25 : POKEV-W, 160 G0TO39 

22 IFPEEK\rt+D>*£THEIlR»fl+D POKEfi-ti. E : POkEfi.5 GQT024 

23 IfPEE*.<R«-&>=6rHEtlP0K£A,E : fl"R+fl : POKEfl • 23 POKEV-H, I60GU1O39 

24 IFPEEK<R»22)=. THfcHy 

23 PGKEV-2. Ho IFPEEK<.fl+22>=ElHENP0KER.E ; R=fl+22-P0kEA,5 POKEV-2, . •OOTOV 

26 POKER, £ • M»A*22 I POKER* 25 • POKEV-2 . . -POhEV-W. 160:007039 

27 J=J+U lFPEEk(ii-22>«ETHEHft»fl-22:pi3kEl : )'22,E-P0KEft,4*D;00T0d 

20 IFPES«ft-22J»HTHENft*f1-22 P0kErt+22.EP0kER.4+I>;GGT043 
29 POKER - E - R=R-22 POKER. 25 :POKEV-W, 160 • G0TG39 

•30 POKEV-2, 160 1 •-»»«. IFPEEK<fl*D>«ETHEMft-iV» :PQKEfl-D. E : POKER . 4+D :Q0T03 J 

31 IFPEEh ■■fl«0^«MiHtHfl»rtH) iPOKEfl-D.E POKER. 4+11 G0T043 

32 PGKEH.E R*R*& POKER,? POkEV-H, 160 GOT039 

33 IFPEEKVfl*22>*.tHEHJ*. : POKEV-2, . 

3? POKEV-2, 140 J=J+W:IFPEEktft^22>»ETHEHH=H+22 P0KER-22.E POkErt,4*D:GOr037 

36 POKER, E • B-fl*22 ' POKER. 7 • PoKEV-W. 160 00T039 

37 IFPEEh 1 H+-i>>"ETHEN8 

38 POKEV-2.. ,1=. GOTOO 

39 POKEV-2, . -K*.EH.25-PUfEV-U.. • PRIM f u fl««k*iUUAtjW/00'F:E DEhD" 

40 IFPEEJ ■ l97»«ETHEt«UH 
4| C0T040 

42 POKtV-2.. PPlNVa mnmJimflrkllUI OF ENERGY" =601040 

43 POKER. e = F0R>-:=lT02G • POKEV-2 , INTcRriO' 1 m0+240> :F0RY=1 TOGO INEXT'NEXT ■ POKEV- 

POKER, E 

44 R*»16i F*P+1 : J=. IFPOTHEN0NPG0T059.62 

45 PRIHT flanWI'.W.tAT.TiWAT-K'.'CH.t M1M! I" GOT040 

46 FftlW-rr PuKJI52.2^ P0KE5&.2S-P0KE31,PEEK<55> : CLR H-25b*2S*PEfck';51> 

47 F0P>i=2S6T0264 POKEX+R, . NEXT ; FORX-. T0127 1 PERDU • POKEX+R, D ' NEXT i V*36078 PB 

29S 

46 PukEV, 15 POKEV+1 . 104 fi»3161 = C*2 

4? DrtTKtj33,255.24, 36.66- 129. ^55, ^55.56. 56. 49, 60.4b, 48.40. 56 

50 DR1R28.28. 12.60, 12. 12. 1 2. 28, 28.28, 12.60-12.28,22.50,56,56.40.60,43.48.43 

51 1imIm56.56.48.60,43,56. 104.76,60. 126.219.231-231.219. 126,60.60-126.239,2*. 

52 DHTR126,60,231,231, 195.255. 193,195, 195,231.3,7/5*7,5,6,31.63.192.224*160, 

53 DATR&6, 240,252. 127.255.238.233,237,207.239,231,254.255,119. 119. 1 83,243. 2-' 

54 7 WTR|4, 14,30, 30, 30,224.240.240, 1 12, 112. 120, 120, 120.252,254.254.239.231.2; 

7. 195 „ 

55 PP I HI "rSfiMif*TiTiT;M k R ft HMIIIMIII HI *^Mw«W«»l»^»Sijja»'-'?'»«iil**i'flO«»-'' 

56 PPIHT"rt>-Wi" J t-rtl^wijMI^*'><?««rt»?W»'M 

* 

5r' pRitiT^uksififtnrtteMtinianHi 11 ; 008UB6S 

59 PKI HI *7K£JJJJM$& k ft ft BlBItWMI xll 8ee*ite«*Stf^tlfe««iWrtlWW^ 

MM " i 

64 M[H[ 0 ««»9«^^i^ G0SU&65 ft-ei60'P0KEfl^2:F»?712 : 0=7&4S 

65 PRllIT-aAMsMAtWl I rill LaiHHWMH»W^ RETURH 
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Spectrum 




Med det gigantiske programbi- 
bliotek af - 5ikkerfiedskopier*. du 
eftertiflnden har fSet opbygget. er 
det sikkert svsrt at finde mndt 
mellem dent Lasningen p3 dtt pro ■ 
bfem er at fS omslag pA dine kas- 
setter Men i stedet for at tegne 
dern, eiler pS anden vis fuske dig 
frem til dem, kan du med dette 
program tage en kopi af et vllkdr- 
ligt staermbillede p3 din Spec- 
trum. Prog ram met er blevet te- 
stet pS en Seikosha GP-505, men 
det skulle ogsS virke til andre gra- 
fiske Spectrum-print ere. 




1 CLEAR PAPER 6: INK a 

! OLB : PRINT RT 13 , O; "KODEN IND 
KOREs - ET OJEBLIK" i GO TO 

IS CL5 ; PRINT "Dftttt pf09faft 
9i ver fcass* t is b*an" * ' "dtt e t pro 
r es* i one lie Look [>e t er sai« t 
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idig nemt at o«erikufi"""hvid ... * 
n har af programmer paa " '"baan 
dene" 

33 PRIMT "Dec er 2 kuliahtdt 

r til f o rs x den" ' ' "en ten en SCRCe 
■ i e Uer TEKST" 

40 PRINT B0,"Tryk en last for 
at start*" pause o 

SO CLS : PRINT AT 4,0;"TRST 1 
for en SCREEN C "iflT 6,0; "TflST 2 
for en TEKST" i AT 8,0, -TflST 3 tor 
at 5T0PPE" 
55 PRINT AT 14,0; "D«tt* progra 

a inddeiar stiv baan det i Si 

dt 1 09 2 Pgg te ks ten tr ifilvj 

uittrtnd-t" 

60 INPUT 5 

70 IF S<1 OR S>3 THEN GO TO 60 
30 GO TO 2000+1500 AND- S«2)-(l 

000 AND 5=3) 

1000 5T0P 

=000 CLS ! PRINT AT 10 , 0, "G0R 01 
N SCREENS KLAR FRA BAAN- DET , 
OG TRVK EN T AST . NAAR DU ER Kl_A 

R" 

2005 PAUSE 0 

2010 LOAD " "SCREEN* 

2012 LET t=0 

2014 REM 2015= S AAAAAA OSV B 

2015 LPRINT 



2020 COPY 
2100 LPRINT . LPRINT ; GO TO 220 

0 

2200 CLS PRIMT AT 10,0;"Tek£te 

n til kasettens bagside";AT 12,0 

; "aax . 16 karakierer" 

2205 PRINT AT 16,0, "KUN STORE BO 

GST AVER TAL OG . " 

2203 POKE 23653,6 

2210 input "teksten ";as 

2220 POKE 23656.0 
2299 GO TO 3300 

2500 CLS : PRINT AT 3,0; INUEA3E 
Si MAXIMUM 23 PROGRAMMER 

2501 INPUT "HvOf «. a n g e programme 

r 1 (1-23) ", t 

2502 IF t>23 THEN GO TO 2500 

2504 LET k«0 

2505 DIH a(ti: DIM bit): DIM CS< 
t ,24) 

2510 FOR n=l TO t 

2514 PRINT AT 19,0; \\ 

2515 PRINT AT 2O,0;"F0R5TE TAL ? 
"in; " ■ " i "Program" 

2520 INPUT a tn) 

2523 PRINT AT 20,0,"ANOET TAL ? 

" ; n; " . "; "Prog r ant " 
2525 INPUT bin) 
2527 PRINT AT 21,0; " 

252S INPUT "Tekster. tina*. 24 bog 
slaver ", cs (n) 

2529 IF *=1 THEN GO TO 2700 

2530 NEXT n 
2540 GO TO 2700 

2544 REM 2545* B AAAAAA OSV B 

2545 LPRINT " 

— : LPRINT 

2549 LET S -0 

2550 FOR n=l TO t 

2555 IF n>16 THEN LPRINT : GO TO 
2200 

2560 LPRINT ; " " AND *(n)<100;" 
" AND a tn) <10,a (n) , "-";" " AND b 
(n><l0O;" AND b (n) <la, b tn) ; " " 



, OS »Ti) 
2565 



IF ain+(l AND n<U)<a<n) th 
EN GO TO 2600 
2570 NEXT n 

2530 FOR nst+13 AND S«l) TO 22. 
LPR INT NEXT n 



GO TO 



2200 

LPRINT TAB S; ": 
LET 5=1: GO TO 



IDE 

257 



PRINT TAB 
GO TO 2720 



3, "SIDE 



TO 



t 

AND 

(n> ; " 
b tn) 



<1O0, 

' AND 



AND 

du 
OR 



a (n 
< 16; b in i ; 
n < t ) ) <a tn 



TH 



titrred& wed d 
w»a"j" THEN GO 



TH 



2590 

2600 LPRINT 
2": LPRINT 

0 

2650 PRINT 
2": PRINT 
270O CLS 
2705 FOR n=l 
2710 PRINT , " ' 
AND a >n i < 10, a 
n) <100; " " AND 

2715 IF a <n + il 
EN GO TO 2650 
2720 NEXT n 
2730 INPUT "Ef 
ette iJ/n)";«$ 
2735^IF WS="J" 

2740 INPUT "Hvilktn til>l| Skat r 
ettes "in; LET k«l: GO. TO 2515 
2755 IF atnttl AND n<tM<a(m 
EN GO TO 2650 
3760 DIM ySi32) 

2761 FOR n=l TO 31: READ a: LET 
y S tn) -CHRS a NEXT n 
2790 PRINT AT 0,0; yS 

2300 LET P=0 

2310 FOR n=51456+P TO 
OKE n,0: NEaT n 
2S12 FOR n=51552+P TO 
OKE n ,0: NEXT n 
2315 IF p=0 THEN POKE 

POKE 51569,192 
2620 FOR n=515S4+p TO 
EAD a: POKE n.a. NEXT 
2330 FOR n=51o64+p TO 
OKE n,0. NEXT n 
2340 FOR n«51720+p TO 
EAD a. POKE n.a; NEXT 
2350 FOR n=5192S+p TO 
OKE n,o. NEXT n 
2360 FOR n»51976+p TO 
EAD a: POKE n,a; NEXT 
2362 FOR n=51472+p TO 
EAD a . POKE n.a : NEXT 
2365 IF p-1024 THEN GO 
LET P*1024 

GO TO 2310 

FOR n=0 TO 31; READ a: POKE 

"a"+n,a: NEXT n 

GO TO 10 

DATA 127,32,77,79,71 iD 9, /O, 
65 ,66 ,62 , 65, .-2 , oS , t , ,33 , o9 



51471+P 
51533+P 
51563, 192 
51663+p : 
51719+p: 
S1927*P . 
51975+p : 



52133+P ; 

n 

51551+P: 
TO 290O 



P 
P 

R 
P 
R 
P 
R 
R 



2370 
2330 
2900 
U5R 
2950 
2990 
33 ,32 



^78. 32 , 44 , 32 , 72 , 46 , 73 , 71 , 32 , 49 , 5 
3000'dATA 0,0,15,15,60,60,51,51, 



0,0.0,0,0,0,63,63,0,0, 15, 15, 43, 4 
5,45,46,0,0,12, 12,51,51,51,51,0, 

0,0,0,0,0,63,63 

3005 DATA 0,0,43,46,51,51,51,51, 
0,0,0,0,51,51,51,51,0,0,60,60,51 
,51,43,43,6.0,12, 12,51,51,51,51, 




0,0 48,46,51,51,51,51 
3015 DATA 0,0,43,43,51,51,51,51, 
O,0, 12, 12, 43, 43, 4S, 43,0,0,63,03, 
3, 3, 3, 3, 0,0, 46, 48, 45,48,63,o3,0, 
0,63,63,0,0,0,0 

302O DATA 0,0,0,0,46,43,12,12,0, 
0,0,0,0,0,0,0,0,0-63,63, 12, 12,3- 
3,0,0,63,63,0,0,0,0,0,0, IS, 15,48 
,46 ,48 ,4S 

3325 DATA 0,0,15,15,48,48,48,48, 
0 , O , 15 , 15 , 48,48 , 48 ,48 , 0,0 , 15 , IS , 
48,43,48,48,0,0,0,0,51,51,51,51, 
0,0,48,48,46,48,48,43 
3030 DATA 0,0,63,o3,0,0,0,0,0,0. 
63,63,0,0,0,0,0,0,63,63,0,0,0,0, 
0 .0,43,48, 12, 12, 3, 3, 0,0. 4s, 43, 12 
. 12 , 3 , 3 , 0 . 0 , 46 , 46 , 60 , O0 , 51 , 51 
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3050 DATA 0 , 0 , 252 , 252 , 192 , 192 , 19 
2,192,0,0,240,240, 12, 12,12, 12,0, 
0,45,45, 12, 12, 12, 12,0,0, 192, 192. 
43,43, 12, 12,0,0, 12, 12, 12, 12, 12,1 

30S5 DATA 0,0,0,0,0,0,0,0,0,0,24 
0 .240,204,204 ,204 , 204,0,0,252 , 25 
2,0,0,0,0,0,0, 12, 12, 12, 12,252,25 
2,0 ,0,240,240, 12, 12 , 12, 12 
30S0 DATA 0,0,12,12,45,43,192,19 
2,0,0,12,12,12,12,12, 12,0,0,252, 
252 ,0 ,0,0,0,0,0, 252 ,252 , 43 , 4S , X 9 
2, 192,0,0,240,240,12, 12, 12, 12 
3070 DATA 0,0,0,0,192,192,192,19 
2,0,0,240,240, 12, 12,60,60,0,0,12 
, 12,240,240, 192,192,0,0,240,240, 
12,12, 12,12,0,0,0,0,0,0,0,0 
3075 DATA 0 , 0 , 240 , 240 12 , 12 , 12 , 1 
2,0.0,192.192,43,48, 12,12,0,0.24 
0,240, 12, 12,48,46,0,0, 12, 12,48.4 
e, 192 ,192 , 0,0 ,0,0,0,0,0,0,0,0,12 
.12,12,12,12,12 

3100 DATA 0,0,240,240,12,12,12,1 
2,0,0, 12, 12, 12, 12,252,252,0,0, 12 
.12,204, 204 , 204 , 204 . 0 , 0 , 240 , 240 , 

12^12 , 12 , 12 ,0 ,0,48,45,48,48,252 , 

3105 DATA 0,0,240,240,12,12,12,1 
2,0.0 ,240 .240 , 12, 12, 12, 12,0 ,0, O, 
0,0,0,192, 192,0,0,240,240, 12, 12, 
12 , 12,0, 5, 240 , 240 , 204 , 204 , 204 , 20 
4 

3120 DATA 43,45,46,45,15,15,0,0, 
43,46, 12, 12,0,0,0,0,48,43,43,43, 
12, 12, 0,0, 43,43, 4S, 43, 12, 12,0,0, 
12,12,3,3,0,0,0,0 

3125 DATA 51,51,51,51,63,63,0.0, 

51,51,51,51, IS, 15,0,0,43,46,48,4 

3.45,45,0,0,51,51.51,51, 12, 12,0, 

0,43,43,45 ,43 , IS , iS, 0,0 

313S DATA 46,43,43,43,15,15,0,0, 

51, 51. 51,51 ,63,63, 0,0,45,43,43, 4 

3,15, 15,6,0,45,46,43,43.63,63,0, 

0,51. 51, 5 1,51, 63. 63, 0,0 

3140 DATA 51,51,51,51,63,63,0,0, 

45,43,48,45,15,15,0,0,3,3,3,3,63 

, 63, 0, 0, 43, 45, 43. 4S, 0,0, 0,0, 0,0, 

0,0,0,0,0,0 

3145 DATA 3,3,3,3,63,63,0,0,0,0, 
0,0,53,63,0,0,3,3,12,12,63,63,0, 
0,3,3, 12, 12,53,63,0,0,43,43,43,4 
3,15,15,0,0 

3150 DATA 46, 43,46, 4S. 63, 63, O,0. 
45,43,48,43, 15, 15,0,0,48,45.46,4 
3,6^,63,0,0,51,51,51,51,12, 12.0, 
0,5o,D3,4S.48,43.. 4S,4S,4S 
3155 DATA 0,0,0,0,63,63,0,0,0,0, 
0,0, 63, 53, 0,0, 0,0,0,0,6o, 63, 0,0, 
3,3,12,12,48,43,0,0,0,0,3,3, 1£ , 1 
2. 4S, 43, 43 ,43, 43, 43, 43, 4S, 0,0 
3170 DATA 192,192,192,192,252,25 
2,0,0,12, 12,12,12,252,252,0,0, 12 
, 12, 12, 12,240,240,0,0, 12, 12, 12, 1 
2,252-252,0,0, 12, 12, 12, 12.252,25 
2,0,0 

3175 DATA 0,0,0,0,252,252,0,0,12 
, 12,12,12,240,240,0,0,0,0,0,0,25 
2.252,0,0,12, 12,12, 12 , 0 , O , O . O , 12 
, 12, 12 , 12 ,240 ,240,0,0 
3130 DATA 0,0,0,0,252,252,0.0,12 
, la, IS, 12, 252 ,252,0,0, 0,0,0,0,25 
2 , 252 ,0,0,0,0,0,0, 252 , 252 ,0,0,12 
,12, 12,12,240,240,0,0 

3135 DATA 192,192,192,192,252,25 
2.0.0,204,204, 12, 12,240,240,0,0, 
192 , 192 , 192 , 192 , 252 , 252 ,0,0,12,1 
2,12,12,48,43,0,0,252,252,0,0,0, 
0.0.0 

3190 DATA 12,12,12,12,240,240,0, 
0, 12,12,45,45, 192, 192,0,0,43,43, 
12, 12,240, 240,0,0, 192, 192 ,45 ,43, 
12, 12,0,0,252,252,0,0,0,0,0,0,20 
4,204,60,60, 12, 12,0,0 
3200 DATA 204,204,60,60,240,240, 
0,0, 12, 12, 12, 12,0,0,0,0,204,204, 
204,204,60,60,0,0, l£, 12, 12, 12,45 
,46,0,0.43,45,43,43,240,246,0,0 



320S DATA 12 , 12 , 12 , 12 , 43 , 43 , O , O , 

12, 12, 12, 12,240,240,0,0,60,60,0, 

0,0,0,0,6,12, 12, 12,12,240,240,0, 

0 Z 2O4, 204, 204, 204, 0,0, 0,0 

3^10 DATA 0,0,0,0,0,63,0,0,0,131 

,69, 43, 16, 43, c9, 131, 0,0,0,0,0 3,0 

,0,0,63,0,0,0,0,0.0,0 

3300 PRINT AT 16,6, "DET UARER LI 

G£ ET LILLE OvlEBLlK" 

3303 DIM iliLEN b$t DIM r S • L.EN 
aft) DIM 9$ • ILEN «ft>#2( 

3304 FOP n=l TO LEN at 

3305 IF i*«rit=CHR* 32 THEN LET € 
*<n>=CMR« 93: LET ri(n)*CHR* 93 
3^-07 IF a$i.nJaCHR$ 46 THEM LET £ 
|(n«=CHR» 46 LET f*tru=CHR* 93 
3310 FOR r..=4S TO 90: IF a*ln)=CH 
Rft In THEN LET -;ftin)=CHR* ft; LET 
fft(n>=CHRft Ui»<(32 AND CODE CHR ft 

:u>64 AND CODE CHR* m91)-(U AN 
D CODE CHR ft tiK53 AND CODE CHRft rr, 
> 47) ) ) 

NEXT ft 
NEXT n 
LET p=l 

FOR n=l TO ILEN aft*2) STEP 
9 ft Ti ) ■£ 1 <P I : LET 9 ft'fi + l >* 



3320 
3330 
3335 
3340 
2 
i ft 



LET 

P < 



3345 
3343 
3350 
3360 

j 3 .- 0 
3330 

3352 
3335 



i_ET p=p+l 
ME XT n 
POKE 23607, 
LPRINT TAB 



200 

( 132-LEN 



POKE 23607,204 

L PRINT TAB I «32-LEN 



a**2« a 



a ft ,2* /2 



POKE 
IF t 

FOR n=20 

ND dim < loo, 
. ■• flNL . 

n 1 \ 10, bint;" 

3391 CL5 PRINT 

a f dii$« 2 type 



23607 , 60 

13 THEM L PRINT LPRIM 
TO t LPRIliT I" *' A 

" and a ti> <10, a <:ri» 
b (n i . 10O, " " AMD b l 
cftim NEXT n 
AT 0,0; "Hwi uen 
kasettt brug 



9ar.9", FLASH 1; "?' 



a f d e n f 1 e 

FLASH 0 

3392 LET «=0 

3393 LET t*="TEKST": FOP r. = l TO 
5: PRINT AT 6 tn , 1 1 ; t ft in i ; AT S+n, 
23,t*(n) NEXT n 

3394 FLOT S6+W,64: DRAU 0,56: OR 
AU 29,-5: DRAU 0,-56: DRflU -29, S 

S7+u,55 DRAU 3,2: DRAU O 



1 , 

PLOT 



,56 
DRAU 
3395 
3396 

3399 
T 30 
3400 



DRAU -8,-2: PLOT 95+w,ll4 
-31,3: DRAU -5,-3 
IF w=96 THEN GO TO 3397 
LET «=96: 00 TO 3394 

112 STEP 



PLO 



117 STEP 3: PLO 

16,7, "TYPE 1" , AT 1 

(Kort Ohsiag) Cl 

3 . 5, *' > " ; AT 
AT 5,20," > 

0, " / " 

>'•;* 

34 



FOP n=56 TO 
n : NEXT n 
FOR n=61 TO 
T 163,n NEXT n 

3401 PRINT AT 
6,19, "TYPE 2" 

3402 PRINT - 

■a m 9 t OIlS La9> " 

3403 PRINT FLASH 1, AT 
10,3, ■ ► " ; AT 12,8; '■>'■. 

',AT 10,20, " > " , AT 12, i 

3404 INPUT "Type 11/2) ? " ; 5 

3405 IF 5 1 OR 5/2 THEN GO TO 
04 

3403 FOR nnl TO 10- (3 AND 5=1) - 1 
it-17> AND tU3). LPRINT . NEXT 
fi 

3409 IF 5=2 THEN GO TO 34 19 
3413 REM 3411 = B DDDDDD Oiv B 
Hli_L»P?lNTj'-- 

3412 GO TO 50 
341S REM 3419 = 
3419 LPRINT " — 

x» 

GO TO 50 

SAVE "kaftsetU" LINE 1 
CLS : PRINT " (JERIFv ► a .= s i 



CCCCCC 05v 5 



3420 
35O0 
3510 

i te 
3520 



•jerify "kasstttt" 



38 - TAST 



Commodore 64 




Rag er noget. du steder pa til dag- 
tlg, Til sportsstaevner. polrBske 
begivenheder. nar du er ude at sej ■ 
le... kort sagt. overalt. 
Du har det sikkert lige somjeg - du 
aner Ikke hvilke Mag. der herer til 
hvilke lande. 5a hvorforikke k<em- 
pe mod din uvidenhed og preve 
denne Flag-tranerl 

tars Ole Dybdahl 



10 
1 1 
12 
14 
16 



20 



22 



24 



REM #** FLAG QUIZ *** 
PO=0 FL=0 

POKE 532:50.12 POKE 53281,12 

PRINT"<CLR)" 

PRINT" <BLAA, RVS OH, 

SPACE 15) FLAG QUI? 

"RVS OFF'" 

PRIHT"<CRSR HCi.IRE8.PVS OH,R@It, 
SPACE3, HVID, SPACE. R8D. SPACES > " 
PRINT "<CRSR H0JRE8.R0P.RVS OH ■ 
SPACES , HV I H , SPACE , R9D - SPACES > " 



PR I NT "(CRSR 
SPACE?) 11 



H0JRE8/HVID.RVS ON 



26 



23 



38 



31 

32 
33 



PRINT" c CRSP H0 JRE8..PVS 
SPACE 3. HV ID. SPACE - R0D 
PRINT" <CRSR H&TRE8,R6D 
SPACES , HV I D , SPACE . R8B . 
PRINT" <R8D> /— .< 

CRSR VENSTRE3) I < SORT )C 
NED. CRSR VENSTRE3> W 
RVS ON>L.O.D * B.P.R S 
A. RVS OFF>" 
PRINT 

PRINT" < RVS 0N,SPACE4fi. 
PR I NT " < RVS ON , SPACE . RV 
SPACE38 . RVS ON . SPACE . R 



ON i P0D, 
SPACES ) » 
RVS ON, 
SPACES? " 
CRSR NED. 
<!R0D> I (CRSR 
("SORT . 

OFTWARECBLA 



RVS OFF)" 
S OFF, 
VS OFF)"; 



TAST 39 



34 PRINT" (RVS 0N,SPACE40,RVS OFFV; 


505 


A4*="<L.GR0N,RVS ON, SPACES, HVID, 


3fi FAR A=l TO 7 


SPACES , ORANGE - SPACES ) " 


37 PRINT" <RVS ON* SPACE* RVS OFF. 


506 


A5*=" '.L.GP0N . PVS ON, SPACES. HVID ■ 


SFWE^S . RVS ON . SPACE • PVS OFF'.'"; 


SPACES ■ ORANGE . SPACES > " 


38 NEXT 


tiV. 

Wo 


C^—*i T Di k4r IT, " 

b*- IKLHN1I 


40 PRINT" <RVS AN ■ SPACE40 ■ PVS OFF) " ; 


Tin y 




42 PEM ******* VRPI ABLER ********** 


510 


REM *** THAILAND *** 


44 HTM' , < HOME, CRSR NED16. 


511 


A 1 *= " ( PVS ON > R0D • SPACES ) " 


CRSR H0JRE3)" 


512 


A2*= " < H V I D , RVS ON . SPACES > " 


4^ TX*="<'HnriE.n»R NFDis.nRSR ha.tpe. 


51 3 


A3*= " < RVS ON , BLAA , SPACES > " 


SORT > " 


514 


A4*= " < HV I D . RVS ON , SPACE9 > " 


4h POt="<:HnME.i~PSP NED 16, 


515 


A5*= " < PVS ON , POD , SPACE9) " 


CRSR H0JPE17>" 


516 


S4="THAILAND" 


47 FL f =" ' HHME • rpfiR NEBi8< 


517 


RETURN 


r:RSR H0.IRE1?>" 


520 


REM *** BELGIEN *** 


50 PEN ****** HOVEB PROGRAM ******* 


521 


AIM" C RVS ON, SORT , SPACES , GUL . 


52 FI_=FL+1 


SPACES ■ ROD, SPACES ■ " 


5'-! ON FL GOSUB 5flA# 510.52A, 53Ci -546- 


522 


A2$» W <RVS ON, SORT , SPACE3, GUL, 


5*fi - F.^0 . 57Ci . Piftfl . 5=i9Ci . 600 .610. 620 - 


SPACES , R0D , SPACES V 


630.640.650,670 


523 


as*= ,, <:pvs ON. SORT. SPACES, GUL . 


54 PRINT POS; "fS0RT>POlNT : M ; PO 




SPACES, ROD > SPACE3>" 


? PRINT FL*- "<SORT>FLflO NR : " J FL 


524 


R4*=" <RVS ON. SORT . SPACES' GUL, 


55 PRINT HJ*.: IF FL=13 THEN 660 


SPACES .. ROD , spaces:- " 


56 PRINT H T$; 014 ! PRINT HJ*; 


525 


A5*= " < RVS ON, SORT , SPACES . GUL , 


"<CRSR NED « " ; 0?* PRINT H.T*; 


SPACES 1 ROD , SPACES " 


""TCPSR NED2>" :03« -PRTNT HJ*; 


526 


S* 3 "BELGIEN" 


"<CRSR NED3> 11 > 04J ! PRTNT HJ*. 


527 


RETURN 


"<CRSR NED4>";fl5$ 


530 


REM *#* 1JNGARN *** 


S7 SVS 65499 : PRINT TX*; 


5St 


Al*=" CRVS ON. ORANGE, SPACES) " 


:PRINT"T0ST LflRDETS NftVN"; 


532 


ft2$=" < RVS ON, ORANGE , SPACE9> " 


i INPUT L* 


533 


AS*=" (RVS ON, HVID, SPACE95 " 


58 T=V0L«TI*> 


5S4 


R4*=" 'RVS ON, L. GRON , SPACE9) " 


^9 r=LEN(S*> B*=LEFT*<L*,C> 


535 


A5*=" CRVS ON. L. GRON, SPACES) " 


: IF B*^>S*THFN 65 


536 


S*="UNGARN" 


60 IF T<10 THEN PO=PO+50 


537 


RETURN 


61 IF TM0 RND T<20 THEN P0«P0+25 


540 


REM *** TVSKLAND *** 


62 TF T>20 RND T<50 THEN P0=P0+5 


541 


A 1 *= " < RVS ON , SORT , SPACE9 ) " 


#;--! pP I HT TXi ; " ( SORT ) DET VfiR R I GT 1 ST ■ 


542 


A2*="<RVS 0N,S0RT,SPACE9>" 


FL OT 1 • M : 00T0 67 


543 


AS*= " • RVS ON . POD ■ SPACES ) " 


£5 PRINT TX*; " 


544 


Ii4*= " < RVS ON , GUL , SPACES > " 


tl 


545 


A5*= " < RVS ON , GUL , SPACES > " 


fifi PRINT TX*i "FORKERT !! DET VRR " 


546 


S*=" TVSKLAND " 


67 PRINT PO* SORT i POINT : ";P0 

%»■ ■ 1 1 * l ' 1 ' ■ ^J^^ F y *^r^P ' 1 f P ^ ■ P P * ftp 


547 


RETURN 


:PPINT FL*;"<SORT>FLRG NR : " i FL 


550 


REM *** 0STRIG *** 


69 FOR VENT=1 TO 1500 NEXT VENT 


551 


Al *=" < PVS ON , ROD , SPACES > " 


496 PRINT TXf ; "TRVK EN TflST FOR ET N 


552 


A2*= " t RVS ON . POD , SPACES ) " 


VT FLflO 


553 


AS*=" < RVS ON, HVID, SPACES)" 


4'37 fiET 0* : IF ft*=" " THEN 4 ,; *7 


554 


H4*= " < RVS ON ■ ROD , SPACES > " 


4 , =tft PRINT TX* ; " 


555 


R5*=" CRVS ON, ROD, SPACES > " 


ll 


556 


S*="0STRIG" 


409 ROTO 50 


557 


RETURN 


500 REM ********* FLftG ************ 


560 


REM *** SVFRIGE *** 


501 REM *** 1RL0ND *** 

^p pr ■^■■■j pr - pr w p ■ ■pp^B ^r-^papapr r r -^^^v h - v - r ■ 




AIM" - RVS ON , BLAA , SPACES . GUL , 


502 fll*» ,, <L-GR0N*RVS ON . SPHCE3, HVID.- 

^fc 1 Tw+ IPX ■ ■ ^» P %^^p P w ■ ^ ■ ■ ■ < ^^p p ^pr ™^ r p p ■ m ^p 




>PACE,BLAA.SPACE5>" 


SPACES ORANGE , SPACES > " 


562 


h2*= " ( RVS ON , BLAA , SPACES , GUL , 


503 fl2*-"<L.OR0N>RVS ON, SPACES. HVID.. 


SPACE, BLAA, SPACE5V 


SPACES . ORANGE , SPACES > " 


563 


ASM" < RVS ON , GUL. SPACES)" 


504 A3*="<L.GR0N,RVS ON. SPACES, HVID- 


564 


R4M" <RVS ON, BLAA, SPACES, GUL* 


SPACES 1 ORANGE , SPACES ? " 




SPACE. BLAA, SPACES) " 



40 - TAST 



TRST 



Amstrad 



Disk-katalog 



Her er disk-katalog] En fuldt ter- 
dig database til Amstrad CPC 664 
0g612a 

N3r programmet starter, kommer 
der en fejlmeldlng om ( at maski- 
nen ikke kan finde nogen fil med 
navnet DI5KDATA, Samtidlg stir 
cursoren ud for DATO. Skriv s& da- 
toen. 

Ud fra menuen kan der nu va?lges 
seks ting: Nye data, data fra kata- 
log, list data, save data, print data 
og sage data. Vaiges nye data, 
inds«ttes en disk (f.eks. nummer 
12), Der trykkes pd n-tasten og 
programmet sparger om disk- 
nummeret og side (a/b). HerpS 
svares med 1 2a og ENTER. Maski- 
nen skriver nu i averste linle: 12a 
og et stort mellemrum til datoen. 
CAT-kommandoen viser diskens 
indhold p5 Mermen, hvorefter 
der sparges om emnet for dlsk- 
siden. Dette besvares, og disk- 
siden indlxses, Na*ste gang man 
bruger 12a og opdaterer den un- 
der samme emne, er det kun at 
Oykke ENTER under spargsmSiet 
om emnet pS dlsken. 
Ved at taste D, sparges igen om 
disknummer og -side, Pr«v at ta- 
ste f.eks. 12ru&a, Den finder alii- 
gevel frem til disk 12a, emne, da- 
te, indhold samt resterende plads. 
Trykkes R vises la, lb, 2a, osv. 
osv. ved et tryk p3 Space (mellem- 
rumstangenten), S saver data til 
disk under diskdata. P udprintrer 
den anskede diskside og trykker 
du pa a et i en bolle (ogs4 kaldet 
snabel-a. ligger pS en tast for sig 
selv til hajre t tastaturet) kan du 
sage en fil. F.eks. skrives *ams- 
word* eller 'amsword.bin\ 

Oie Ttved 




10 * *#» 
20 ■ 01# Tived 
30 ON ERROR GOTO 910 
40 MODE 2:at-30:DIM 
30 REM 



DISC-KATALOG for CPC 664 & 6128 #+* 



id«<at) f bd»(at) , nrtlat, 36) ,at»(atl , bei 



(at) 1 n«<at) 
*** MENU 



TAST -43 



TflST 



60 m-3:G0SUB 2190 

70 LOCATE 10,5:PRINT"NY DISK I KATALOG (N) " 
60 LOCATE 30,5:PRINT"SAVE DATA <S> B 
90 LOCATE 10,7:PRINT"DISK FRA KATALOG (D)" 
100 LOCATE 30, 7 : PR I NT " PRINTER UDSKRIFT (P> " 

LOCATE 10,9:PRINT"LIST DISKE <L>" 
LOCATE 50,9:PRINT"S0GE DATA I KATALOG (8) " 
LOCATE 33,24:PRINT" < Max " ( at I " d i ska )" 
LOCATE 3S,li:PRINT "FREE ": LOCATE 40, 11 SPRINT 
IF ld-0 THEN 830 



IF 
IF 
IF 
IF 
IF 



110 

120 

130 

140 

130 

160 

170 

180 

190 
200 
210 
220 
230 
240 
2SO 
260 
270 
280 
290 
300 
310 
320 
330 

340 

330 
360 
370 
380 
390 
400 
410 
420 
430 
440 
430 
460 
470 
480 
490 
300 

<n, 1 >- 
310 IF 



FRE ( " " ) -4200 



c»-"d' 
c««-s' 
c«-"p' 

cs=-a' 

c«*-r 

160 



2110 

700 

2120 

x=2: y=6: GOTO 
1520 



*** Disk fra katalog <D) **# 



290 
320 



z-0:c»=LOWER»( INKEY«) 
IF c»-"n- THEN d-3:G0T0 2100 
THEN 
THEN 
THEN 
THEN 
THEN 

GOTO 
REM 

GOSUB 2190 
w-6:L0CATE 64,4 

IF da*-"a" THEN PRINT ■ DATO : " | ad* ( n ) : GOTO 
IF da»=-b- THEN PRINT "DATO : " » bdS < n ) : GOTO 
LOCATE 25,4:PRINT "Emne : " | ae* ( n ) 

FOR i = l TO 1S:L0CATE 2,w:PRINT nr$ln, t I :w-w+l J NEXT 
GOTO 340 

LOCATE 25,4:PRINT "Emne : "»be*<n> 

FOR 1-19 TO 36:L0CATE 2,m:PRINT nrt (n, i ) ! w = w * 1 : NEXT 
WHILE INKEY ( 18>< >0: WEND: GOTO 60 

REM *** N. disk 

d-0:CLS 

LOCATE 1,1 SPRINT "DISK-NUMMER : - I n» ( n ) + ■ -+ds* 
IF da*-"a" THEN q=l : LOCATE 64.1: print -DATO : "|ad*<n> 
IF ds*-"b" THEN q*2:L0CATE 64,i:PRINT "DATO : "|bd*<n> 
CAT 

LOCATE 27,23:PRINT"Sid ■till*, AMSTRAD akrlver ■■ 
IF q-1 THEN 440 
IF q-2 THEN 370 

FOR 1-1 TO 18: nr»<n, 1 >-" " :NEXT i 
FOR i-1 TO 18 
FOR x-1 TO 77:y-i*4 
LOCATE x l y:a*«COPYCHR*(MO) 
nr*(n, i >-nr*(n, i > +a« 
NEXT X 

IF nr*<n, i > -STRING* < 77, " ■) AND q-9 THEN nr* < n , i - 1 > -LEFT* ( nr* < n , i - 1 I , 10) : nr* 
":GOTO 330 

nrf(n, 1 ) -STRING»(77, " ■> THEN n r* ( n , 1 >-"*": q-9 



i katalog ( N ) 



*** 



l,25:PRINT"Si 
1 1 init 1 " : 



mme emne 



>"l 



<n> :LOCAT 



320 NEXT i 

330 ENV 2,10,-1 ( 3:S0UND 1,23,30,10,1 
540 LOCATE 23,25:PRINT SPACE* ( 40 ): LOCATE 
E 42, 25: PRINT " < tast ENTER, ellers akriv 
LOCATE 58, l:PRINT"<" 

350 LOCATE 23, I; LINE INPUT "Emne : >■ , ae* (O) : IF M*!OK> a " THEN aa* (n ) -LEFT* (ae* ( 
0) ,28) 

360 GOTO 690 

370 FOR i-19 TO 36: nr* ( n t i ) ■ : NEXT i 

380 FOR i-19 TO 36 

390 y-i-14:F0R x-1 TO 77 



44 ■ TAST 



TflST 



AND q-9 THEN nrfl < n , i -1 ) -LEFT* ( nr« ( n , 1 - 1 ) , 1 O ) : nr* 
THEN nr*<n,i)-"*":q-9 

>■ Ib»*(n) :locat 
»LEFT*(be*< 



600 LOCATE x , y : a*=COPYCHR* ( HO ) 
610 nrlln, 1 ) a nr>(n, 1 ) + a* 
620 NEXT x 

630 IF nr«(n, i ) -STRING»(77, " ") 
(n, 1 )-" " :GOTO 660 

640 IF nr*<n,i)-STRING*<77," •] 
630 NEXT i 

660 ENV 2, 10, - 1 , 5: SOUND 1,25,50,10,1 

670 LOCATE 25,23:PRINT SPACE* ( 40 »: LOCATE 1 , 23: PRINT'Samme emne 
E 42,25:PRINT"< tast ENTER, eller skriv i linle l":L 
OCATE 59, 1 : PRINT"<" 

680 LOCATE 23,l:LINE INPUT "Emne : > , ,bt»(0) : IF be*<0)<>" THEN be*<n) 
0) ,28) 

690 WHILE INKEY ( 18) < >0: WEND: GOTO 60 

700 REM *** Save data (S) 

710 LOCATE 19,16:INPUT "Har du den rigtige disk i drevet ? <J/N> : " , s* 
720 IF L0WER*(a*)-" j " GOTO 730 ELSE 50 
730 LOCATE 35,18:PRINT "Saving data" 
740 OPENOUT " ! DISKDATA" 
730 FOR J-l TO at 

760 PRINT*9,ad*< j ) :PRINT#9,ae»< j > : PRINTM9, bd» < j ) : PRINT*t9 , be* < J ) 
770 FOR t-1 TO 36 
780 PRINT«9,nr*(j ,t> 
790 NEXT t : NEXT j 
800 CLOSEOUT 

810 ENV 2, 1 0, - 1 , 5: SOUND 1,25,50,10,1 

820 LOCATE 3,16:PRINT SPACE* ( 75 ): LOCATE 3,18:PRINT SPACE* ( 75 >: GOTO 160 
830 REM *** Loading data *** 

840 LOCATE 35,18:PRINT "Loading data" 
830 OPENIN " ! DISKDATA" 
860 FOR J-l TO at 

870 INPUT#9,ad*(j > : INPUTK9, ae* < J ) : INPUTW9 , bd* < J > : INPUTW9 , be* < J ) 
880 FOR t-1 TO 36 
890 INPUT#9,nr*<J ,t) 
900 NEXT t ! NEXT j 

910 IF ERR-32 THEN RESUME 920 
920 CLOSEIN: ld-100 

930 ENV 2, 10, - 1 , 5: SOUND 1,25,30,10,1 

940 LOCATE 3,16:PRINT SPACE* ( 75 ) : LOCATE 3,18:PRINT SPACE*(75) 

950 LOCATE 34,18:LINE INPUT "DATO : " , dato*: LOCATE 3,18:PRINT SPACE* t 75) : LOCATE 
35,11: PRINT SPACE*(25) :G0TO 140 

960 REM *** 
970 s=3:G0SUB 2190 

980 LOCATE 62 , 2 : PRINT " DI SK-NUMMER : " 

990 LOCATE 2,2:iNPUT "SOGER DATA : " , ae*: se*-UPPER* < ae* > 
1000 LOCATE 40,4:PRINT "* SPACE for flere *** ENTER for menu #" 
1010 d-LEN<ae*) 
1020 FOR q-1 TO at 

1030 LOCATE 62, 21 PRI NT " DI SK -NUMMER : "lq 
1040 FOR w-1 TO 18 
1030 t-0 

1060 na*=MID*(nr*(q,M) , 1, 17) : IF MID* ( na», 1 , d ) =se» THEN GOSUB 1320 
1070 IF na*-"" THEN t-t+1 

1080 na*=MID*(nr**q,M) ,21, 17) : IF MID* ( na», 1 , d > -ae* THEN GOSUB 1320 
1090 IF na*-"" THEN t-t+1 

1100 na*»MID*<nr*<q,w) ,41, 17) : IF MID* < na*, 1 , d ) -se* THEN GOSUB 1320 
1110 IF na*-"" THEN t-t*l 

1120 na*— MI D* < nr* <q,w) ,61, 17) : IF MID* ( na*, 1 , d ) -ae* THEN GOSUB 1320 



SOGE DATA <U) *** 



TAST-45 

A 



TflST 



1130 
1140 
1 150 
1 160 
1170 
1 180 
1 190 
1200 
1210 
1220 
1230 
1240 
1230 
1260 
1270 
1280 
1290 
1300 

1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1300 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 



IF MID*<na«, 1 , d) -seC THEN GOSUB 1280 
MID*<na», l,d) 



,e» THEN GOSUB 1280 



MID*lna*,l,d)=s»* THEN GOSUB 1280 
MID*(na», l,d)-s« 



>• THEN GOSUB 1280 



for 



nu *' 



IF n*«='" THEN t-t+1 
V-N+18 

na**MID*<nr*(q, v) , 1, 17) 
IF na*-"" THEN t-t*l 
na*=MlD*<nr*(q, v> ,21, 17) : IF 
IF na*-" - THEN t-t+1 
na*=MID*(nrtlq,v* , 41, 17) I IF 
IF na*-"" THEN t-t*l 
na*-MID*<nr*(q, v) ,61 , 17) : IF 
IF na$=" THEN t-t + 1 
IF t-8 THEN h-19 
NEXT HINEXT q 

LOCATE 40,4:PRINT SPACE* < 39 >: PRINT CHR«<7) 
LOCATE 40,4:PRINT "# Ikk* tlere data *** ENTER 
WHILE INKEY(18)O0:WEND:G0T0 60 
ENV 1,10,-1, 5:S0UND 1,25,50,10,1 

LOCATE 3,4:PRINT SPACE* ( 36 ) : LOCATE 3,4: PRINT "Emn» : "lb 

IF q<10 THEN LOCATE x + l,y IPRINT q : LOCATE x+3,y:PRINT 
IF q>9 THEN LOCATE x , y I PRINT q: LOCATE x+3 ( y:PRINT " b 
ENV l.lO.-l.StSOUND 1,25,50,10,1 

LOCATE 3,4:PRINT SPACE* ( 36 >: LOCATE 3,4: PRINT "Emne : "|a»*(ql 
IF q<10 THEN LOCATE x*l,y :PRINT q: LOCATE x*3,y:PRINT " a 
IF q>9 THEN LOCATE x,y :PRINT q : LOCATE x+3,y:PRINT 
y*y+i:lF y-25 AND x-2 THEN y=6: x-28 
IF y-25 AND x-28 THEN y»6: x=54 
IF y-25 AND x-54 THEN GOSUB 1430 
WHILE INKEY(18)<>0 OR INKEY(47)<>0 
IF INKEY(18)-0 THEN 60 
IF INKEY(47)-0 THEN RETURN 
WEND 

FOR i-6 TO 23 

LOCATE 2,i:PRINT SPACE*<77) 
NEXT i : LOCATE 2,24:PRINT SPACE*(52> 
FOR i=55 TO 79 

LOCATE i,24:a*=C0PYCHR*(HO) 
LOCATE i-52,6:PRINT a* 
NEXT i 

x-2:y-7:L0CATE 54,24:PRINT SPACE* ( 24 ) 
RETURN 

REM *** LIST DATA 

FOR n-1 TO at : n*(n)-STR*(n) : d»*-"a- : GOSUB 2190 
LOCATE 4, 21 PRI NT " SPACE- t ast tor t la-re" 



«(q) 

b "|na»:GOTO 1360 
■|na*:G0T0 1360 



na* 



I 



|adt(n) :L0CATE 25,4:PRINT 'Emm 



THEN 1590 



LOCATE 64,4;PRINT "DATO : 
W-6IF0R i-1 TO 18 

LOCATE 2,m:PRINT nrtln, 1 1 S m=h+1 : IF nr*<n,l) 
NEXT 1 

WHILE INKEY<18)O0 OR INKEY(47)<>0 
IF INKEY(18)=0 THEN 60 
IF INKEY<47)*0 THEN 1630 
WEND 

dB*-"b" :GOSUB 2190 

LOCATE 4,2:PRINT"SPACE-tast -for *ler«" 

LOCATE 64,4:PRINT " DATO : " 1 bd* in) Z LOCATE 25,4:PRINT "Emne 
N=6:F0R 1-19 TO 36 



i ae« ( n ) 



Ibe*(n) 



LOCATE 2,w:PRINT nr* < n , i > : h-w+ 1 : IF nr«(n,i) 
NEXT 1 

WHILE INKEY(18)<>0 OR INKEY(47)<>0 
IF INKEY<18)«0 THEN 60 



THEN 1690 



46 - TAST 



1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 

ato: 

1930 
1940 
1950 
1960 
1970 
1980 

ATO: 

1990 
2000 

2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
WER» 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
240 



IF INKEY (47) -O THEN 1730 
WEND 
NEXT n 

WHILE INKE Y (18)00: WEND : GOTO 60 
GOTO 60 
REM 

IF da»-"b" THEN 1850 
CLS 

LOCATE 4,i:PRINT-DISK-NUMMER:-|n»(n>*" • 
LOCATE 64, 1 :PRINT"DATO: "»ad»(n) 
LOCATE 23,1: PRINT "Emne: " t ae* ( n ) : LOCATE 
h=3: FOR i"l TO 18:L0CATE 2,w:PRINT nr 
GOSUB 2040 
GOTO 1920 
CLS 

LOCATE 4, 1 :PRINT"DISK-NUMMER: " 1 n»(n) "+ds* 
LOCATE 64, i:PRINT"DATO: "(bd»(n) 

LOCATE 23,l:PRINT "Emne: " | be* ( n >: LOCATE 2,2:PRINT 



*** Printer udskritt <P> *** 



ds* 

2,2:print ■#■ 
(n, 1 ) :h=w*1:NEXT 



"*" 

:w=w*i:next 



I 



»+da«|TAB(25) "Emne: "|ae«(n> I TAB (64) " D 



h=3: FOR i-19 TO 36:LOCATE 2,w:PRINT nr*(n 
GOSUB 2040 
GOTO 1980 

PRINTH8, TAB (3) " DI SK -NUMMER : " | n» ( n ) + " 
■ | ad*< n) 

PRINT"8, TAB (3) "*" 

FOR i»l TO 18 

PRINTH8, TAB (3) " " I nr«(n, i I I 

NEXT i :print«*8:print#8 

PRINT CHR«(7):G0T0 60 

PRINT MS, TAB (3) " DI SK -NUMMER I " I n» < n > ♦ " " + ds*l TAB ( 23) "Emne: " Ibe»(n) 1 TAB (64) "D 
■ ; bd* ( n) 

PRINTH8,TAB(3) "#" 

FOR 1-19 TO 36 

PRINTW8, TAB (3) ■ " 1 nr»(n, 1 i » 

NEXT 1 :PRINT«*8:PRINTH8 

PRINT CHR*(7):G0T0 60 

LOCATE 19,25:PRINT"Tast SPACE *or print eller ENTER for menu" 
WHILE INKEY (47)00 OR INKEY( 18)00 
IF INKEY (47) -O THEN RETURN 
IF INKEY ( 18) -O THEN 60 
WEND 

*** Sub-rutiner 
8,3:PRINTiCHR»(243) : GOSUB 2130:GOT0 360 
8,7:PRINTiCHR«(243) : GOSUB 2130:G0T0 240 
48,7:PRINT|CHR»(243) : GOSUB 2130:GOTO 1760 
30, 16: LINE INPUT "DISK-NUMMER h (a/b> : ",m»:n' 
n»(n)-STR«(n) 
OR n>at THEN 50 

AND da»0"b" THEN 30 
da«-"a" THEN ad»(n)=dato» 
ds«="b" THEN bd»(n)-dato« 



•fra menu *** 



LOCATE 
LOCATE 
LOCATE 
LOCATE 
lm«) , 1) 
IF n<l 
IF ditO't 
IF d-3 AND 
IF d-3 AND 



>VAL (m«) :di 



'RIGHT»(LO 



RETURN 

CLS:ORIGIN 0,0:DRAW 0,390:DRAW 639,390:DRAW 639 f O:DRAW 0,0:'ratnm* 
PLOT 0,364:DRAW 640 , 364 : LOCATE 34 , 2 : PRINT ■ DISK-KATALOG ■ 

IF m-3 THEN PLOT 0,220:DRAW 639 , 220 : m-0 : RETURN 

IF «-3 THEN PLOT 0,325: DRAW 640 , 325: a— O: RETURN 

LOCATE 59 , 2 : PR I NT " ENTER- t as t for menu":PLOT 0,325:DRAW 640,325 

LOCATE 3,4:PRINT "DISK-NUMMER : " I n» ( n ) + " "+ds» 

RETURN 
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